Função TimeSerial

Pessoal,

Tenho cinco campos no formato data/hora no access e o usuário digita no formulário assim:

entrada_p.text = 8:00

saida_p.text = 12:00

re1 = 4:00

entrada_s.text = 14:00

saida_s.text = 18:00

re2 = 4:00

Veja o código que estou usando, mas não esta dando certo:

>
Private Sub saida_s_LostFocus()

Dim d1, d2, d3, d4 As String

If saida_s.Text <> "" Then

d1 = TimeValue(entrada_p.Text)

d2 = TimeValue(saida_p.Text)

d3 = TimeValue(entrada_s.Text)

d4 = TimeValue(saida_s.Text)

re1 = (d2 - d1) * 24

hora.Text = re1

End If

Um abraço.

Alissong