Dim n As DateTime = Now
        Dim dt As DateTime = n.AddMilliseconds(1) ' 1 Millisekunde später
 
        If dt.CompareTo(n) = 1 Then
            MsgBox("Später")
        Else
            MsgBox("Nich später")
        End If

        If dt > n Then

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov