sugerencias para sacar la diferencia entre 2 horas

hola

kiero sacar los minutos y segundos q hay entre 2 horas hora final-hora
inicio

de momento solo estoy sacando los segundos pero no me sale

hago esto:

' *************** primera forma de hacerlo *****************

Dim hora2, hora1 As Date

Dim diferencia As Integer



'hora inicio-la almacene en un textbox pq no podria ponerlo como variable

'hora inicio

hora.Text = Microsoft.VisualBasic.Hour(System.DateTime.Now)

hora.Text = Format(System.DateTime.Now, "HH:mm")

'hora final

horaf.Text = Microsoft.VisualBasic.Hour(System.DateTime.Now)

horaf.Text = Format(System.DateTime.Now, "HH:mm")



hora2 = horaf.Text

hora1 = hora.Text

diferencia = hora2.Subtract(hora1)



y despues en el insert inserto la diferencia



' *************** segunda forma de hacerlo *****************

Dim difer As TimeSpan

Dim hora2, hora1 As String

difer = (DateDiff(DateInterval.Day, DateTime.Parse(hora2),
DateTime.Parse(hora1)))



bueno ninguno de los ejemplos me da.

Alguna sugerencia??



gracias