cm grazie ma ho risolto con questo codice lo posto se poetesse servire a qualcuno


On Error Resume Next
a = Mid(Text5.Text, 1, 1)
b = Mid(Text5.Text, 2, 1)
c = Mid(Text5.Text, 4, 1)
d = Mid(Text5.Text, 5, 1)
ore = a & b
minuti = c & d
risultato = Val((ore * 60) + minuti)

a1 = Mid(Text6.Text, 1, 1)
b1 = Mid(Text6.Text, 2, 1)
c1 = Mid(Text6.Text, 4, 1)
d1 = Mid(Text6.Text, 5, 1)
ore1 = a1 & b1
minuti1 = c1 & d1
risultato1 = Val((ore1 * 60) + minuti1)


risultatoprovvisorio = Val(risultato1 - risultato)

risultatofinaleore = Val(risultatoprovvisorio \ 60)
If Val(risultatofinaleore) < "10" Then
risultatofinaleore = "0" & risultatofinaleore
End If
risultatofinaleminuti = Val(risultatoprovvisorio Mod 60)
If Val(risultatofinaleminuti) < "10" Then
risultatofinaleminuti = "0" & risultatofinaleminuti
End If

Label4.Caption = risultatofinaleore & ":" & risultatofinaleminuti