Try:
Dim now As DateTime = DateTime.Now
Dim todayTime As TimeSpan = now - New DateTime(now.Year, now.Month, now.Day)
Dim band1Start As New TimeSpan(6, 15, 0)
Dim band1End As New TimeSpan(9, 45, 0)
If todayTime >= band1Start AndAlso todayTime <= band1End Then
Console.WriteLine("A-Shift")
End If
And so on...