Hjälp effektivisera kod

Har skrivit ett stycke ful kod. Detta är inget jag brukar bry mig om så länge det fungerar. Men detta fungerar inte som det ska. Jag bör få samma resultat på min dator som på webhotellets server men det får jag inte alltid. Deras server hänger väl inte med alltid eller något. Så koden behöver effektiviseras. Snälla hjälp mig med det:

	Dim Natt, Kvar, KvarM, Tid
	Natt = DateDiff("d", "2002-07-24", 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