Como sumar y restar horas en Visual basic de excel?

Quiería saber ya que estoy realizando un formulario para un control de entrada y salida de personal cómo puedo pasar la siguiente funsión:

=SI(C2-B2<0;(C2-B2)*24+24;(C2-B2)*24)

donde en cada celda tengo horas " C2 = 18:00 " & " B2 = 06:00 " en un Código de Visual Basic

Lo he intentado de la siguiente manera:

Private Sub CommandButton1_Click()

Dim TextBox1 As Integer

Dim TextBox2 As Integer

If Val(TextBox2.Text) - Val(TextBox1.Text) < 0 Then

TextBox3.Text = (Val(TextBox2.Text) - Val(TextBox1, Text)) * 24 + 24

Else

TextBox3.Text = (Val(TextBox2.Text) - Val(TextBox1.Text)) * 24

End If

End Sub

Y no me funsiona.