veja esta funcao

 

Function CalculaTempo(HoraIni, HoraFim As Date) As String
Dim Hora As Integer
Dim Minutos As Integer
Dim Tempo As Integer
Tempo = DateDiff("n", HoraIni, HoraFim)
Minutos = Tempo Mod 60
Hora = (Tempo - Minutos) / 60
CalculaTempo = Format(Hora & ":" & Minutos, "hh:nn")
End Function

 

Private Sub Command1_Click()
Text3.Text = CalculaTempo(Text1.Text, Text2.Text)
End Sub

 

existe um porém se você for tentar fazer o calculo com a hora sugerida ( 22:23 e 00:30 ) o cáculo não será correto exibindo um valor negativo, isso se dá porque o codigo não entende a data de inicio e a data de fim, fazendo o cálculo com se fossem horas do mesmo dia.

 

para resolver isto o ideal é colocar a data e hora inicial e data e hora final

 

então com o código acima você poderá fazer o seguinte

 

 

e assim terá um resultado correto