Sub GC2EC2T()
Dim MD5_suche As String, MD5 As String
Dim Nord As Integer, Ost As Integer

MD5_suche = "b56ca3fa4c5070b7b5745fe757d65ab8"

For Nord = 15000 To 16999
For Ost = 19000 To 20999
MD5 = "N48 " & Format(Nord, "00,000") & " E014 " & Format(Ost, "00,000") & vbLf
If BerechneMD5Hash(MD5) = MD5_suche Then
MsgBox MD5
End If
Next Ost
Next Nord

End Sub

Object: nil error: did not understand #'MD5_suche'
MessageNotUnderstood(Exception)>>signal (AnsiExcept.st:216)
UndefinedObject(Object)>>doesNotUnderstand: #'MD5_suche' (AnsiExcept.st:1556)
UndefinedObject>>executeStatements (prog.st:2)
Object: 16999 error: did not understand #For
MessageNotUnderstood(Exception)>>signal (AnsiExcept.st:216)
SmallInteger(Object)>>doesNotUnderstand: #For (AnsiExcept.st:1556)
UndefinedObject>>executeStatements (prog.st:7)

prog.st:9: expected object