Imports System.Runtime.CompilerServices
 
Module Extensions
 
    <Extension()> _
    Public Function Within(ByVal dtw As DateTime, ByVal dts As String, ByVal _
    dte As String) As Boolean
        Dim tsw As TimeSpan = dtw.TimeOfDay
        Return tsw >= CDate(dts).TimeOfDay AndAlso tsw <= CDate(dte).TimeOfDay
    End Function
 
End Module

    If DateTime.Now.Within("12:00:00", "13:00:00") Then
        MsgBox("Yay!")
    End If

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist