Dim dTime1    As Date
  Dim dTime2    As Date
  Dim dTime3    As Date
  Dim lMinuten  As Long
 
  dTime1 = "16:01"
  dTime2 = "00:00"
 
  If dTime1 > dTime2 Then
    dTime3 = dTime1 - dTime2
  Else
    dTime3 = dTime2 - dTime1
  End If
  lMinuten = (Format(dTime3, "hh") * 60) + Minute(dTime3)