For Each Key1 As String in Map1.Keys
Dim Value1 As String = Map1.Get(Key1) 'why store date as string???
Dim KeyValueSame As Boolean = False
If Map2.ContainsKey(Key1) Then
Dim Value2 As String = Map2.Get(Key1)
If Value1 = Value2 Then KeyValueSame = True
'Or if you want to look more sophisticated:
KeyValueSame = Value1 = Value2
End If
If KeyValueSame = False Then
Log($"Key: ${Key} is different"$)
End If
Next