Dim Number
Number = 8   ' Initialize variable.
Select Case Number   ' Evaluate Number.
Case 1 To 5   ' Number between 1 and 5, inclusive.
   Debug.Print "Between 1 and 5"
' The following is the only Case clause that evaluates to True.
Case 6, 7, 8   ' Number between 6 and 8.
   Debug.Print "Between 6 and 8"
Case 9 To 10   ' Number is 9 or 10.
Debug.Print "Greater than 8"
Case Else   ' Other values.
   Debug.Print "Not between 1 and 10"
End Select

If CDate(Text1.Text) <= CDate("04:00:00") Then
    MsgBox "Noch keine 4 Stunden erreicht!"
Else
    Text1.Text = Format(CDate(Text1.Text) - CDate("04:00:00"), "hh:mm:ss")
End If