Usa il tipo di dati Date per effettuare questi confronti:
codice:
Dim data1 As Date
Dim data2 As Date
data1=CDate(text1.text)
data2=CDate(text2.text)
Label4.Caption=Format(data2-data1,"hh.mm")