Dim d1, d2 As Date
If Date.TryParse("4:35:20 PM", d1) AndAlso Date.TryParse("7:25:34 PM", d2) Then
Dim diff As TimeSpan = d2 - d1
'
MsgBox(diff.ToString)
MsgBox(diff.TotalMinutes.ToString)
Else
MsgBox("could not read one or both values")
End If