Solution
Ok, after the post from thedesolatesoul I remember me to a string-function:
string1.CompareTo(string2), so it is able to compare date & time strings
Dim test1, test2 As String
test1 = "19:00:00"
test2 = "19:10:00"
If test1.CompareTo(test2) > 0 Then
Msgbox("test1 > test2","")
Else If test1.CompareTo(test2) < 0 Then
Msgbox("test1 < test2","")
Else
Msgbox("test1 = test2","")
End If
Many hours I spent because this little problem ...
Thanks to thedesolatesoul, margret, BarrySumpter, mc73 for help