Grazie per l'aiuto
funziona!
gli input che mi avete dato sono stati validissimi.
devo ora sistemare la visualizzazione
errore sulla msbgox
(errore:Impossibile convertire l'argomento 'Prompt' nel tipo 'String')

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim t1, t2, t3, min As TimeSpan
t1 = New TimeSpan(0, 1, 30)
t2 = New TimeSpan(0, 4, 31)
t3 = t1 + t2
If t1 < t2 Then
min = t1
Else
min = t2
End If

MsgBox(min)

End Sub
End Class