Hjälp med datumkod

Har tidigare skrivit att min kod som räknar datum inte tolkas så bra av mitt webhotell.

Jag vill ha en snutt kod som gör följande saker.
Delar upp ett dygn i 4 delar (00-06, 06-12, 12-18, 18-24) (Nätter). Koden ska från ett visst datum beräkna vilken "Natt" det är just nu och också hur många timmar och minuter det är kvar till nästa natt.
Kan någon ge mig förslag på något sånt?

Det jag själv skrev fungerar inte alltid på webhotellet (flippar ur).

'Natt-grejs
Dim Natt, Kvar, KvarM, Tid
Natt = DateDiff("d", "2002-09-01", Date) * 6
Tid = Time

	If Tid \> "00:00:00"  And Tid \< "06:00:00" Then
		Natt = Natt + 1
		Kvar = Datediff("h", Tid, "05:00:00")
		KvarM = Datediff("n", Tid, "06:00:00") - cInt(Datediff("n", Tid, "06:00:00") / 60) \* 60 
	End If
	If Tid \> "06:00:00"  And Tid \< "12:00:00" Then
		Natt = Natt + 2
		Kvar = Datediff("h", Tid, "11:00:00")
		KvarM =  Datediff("n", Tid, "12:00:00") - cInt(Datediff("n", Tid, "12:00:00") / 60) \* 60 
	End If
	If Tid \> "12:00:00"  And Tid \< "18:00:00" Then
		Natt = Natt + 3
		Kvar = Datediff("h", Tid, "17:00:00")
		KvarM = Datediff("n", Tid, "18:00:00") - cInt(Datediff("n", Tid, "18:00:00") / 60) \* 60 
	End If
	If Tid \> "18:00:00"  And Tid \< "23:59:59" Then
		Natt = Natt + 4
		Kvar = Datediff("h", Tid, "23:00:00")
		KvarM =  Datediff("n", Tid, "00:00:00") - cInt(Datediff("n", Tid, "00:00:00") / 60) \* 60 
	End If

	If KvarM \< 0 Then KvarM = 60 - (KvarM \* (-1))
	If KvarM = 0 Then Kvar = Kvar + 1