use o datediff
desta forma
Função que acabei de criar pra facilitar seu trabalho
Function DifHoras(Hora1 As Date,Hora2 As Date) As String
Dim H As Integer, M As Integer, TempDeco As Integer
TempDeco = DateDiff("n",Hora1, Hora2) ' Tempo decorrido
M = TempDeco Mod 60 ' Minutos igual ao Resto do tempo decorrido dividido por 60
H = (TempDeco - M) / 60 ' Horas igual ao tempo decorrido menos os minutos dividido por 60
DifHoras = Format(H & ":" & M, "hh:nn")
End Function
para usar é simples
txtDiferenca.text = DifHoras(txtHora1.Tex,txtHora2.Text)
tente