Visual Basic - como doy formato a una hora

no se como darle formato a una Hora para poder restarla porque sino cuando las resto me da valor negativo

No entiendo bien tu pregunta, pero para darle formato a una fecha existe una funcion "format" y para restar fechas existe otra "DateDiff", cualquier cosa pasate por mi blog y te paso algun ejemplo. Saludos

la cosa es que tengo dos campos al que le hago una resta de horas con el datadif, pero no puedo usar hora con AM o PM ya que entonces me saca la cuenta a negativo y para que lo haga bien tengo que darle formato de hora militar
pero quiero cambiarlo a Am Y Pm y se que es con formatio de hora

Aqui te mando como lo he resuelto yo de dos formas diferentes. La primera es la mas sencilla. Espero que sea esto lo que ibas buscando.

'ESTE ES UN MÉTODO DIRECTO PARA RESTAR HORAS

Private Sub Command1_Click()

'Vamos a restar 9:45:05 AM con 15:40:00 PM

Text1.Text = TimeSerial(9 - 15, 45 - 40, 5 - 0)

End Sub

'SEGUNDA FORMA DE HACERLO

Private Sub Command2_Click()
Dim Horas As Long
Dim Minutos As Long
Dim Segundos As Long
Dim S As Long

S = Abs(DateDiff("s", #9:45:05 AM#, #3:40:00 PM#)) 'Restamos las 2 horas y nos da el resultado en segundos "s"

Print S; " segundos"

'Pasamos los segundos a horas y nos quedamos con la parte entera
'(21295seg = 21295/3600 = 5,915277777 horas ===> 5 horas)

Horas = S \ 3600 'División sin decimales "\" (parte entera)

'Pasamos la parte decimal de las horas a minutos y nos quedamos con la parte entera
' (0,915277777 horas * 60min/hora = 54,9166666 min ===> 54minutos)

Minutos = Int((S / 3600 - Horas) * 60)

'Pasamos la parte decimal de los minutos a segundos y nos quedamos con la parte entera
'(0,91666666 min * 60 seg/min = 55 seg)

Segundos = (((S / 3600 - Horas) * 60) - Minutos) * 60

Text2.Text = Horas & " horas " & Minutos & " minutos " & Segundos & " segundos "

End Sub