nella form metti 2 textbox ed un pulsante, al pulsante assegni questo codice, prova e fammi sapere se ti risolve il tuo problema
codice:
orario = Len(Text1.Text)
If orario = 3 Then
ora = Mid(Text1.Text, 1, 1)
minuti = Mid(Text1.Text, 3, 1) * 10
Text2.Text = ora & ":" & minuti
End If
If orario = 4 Then
ora = Mid(Text1.Text, 2, 1)
If ora = "." Or ora = "," Then
ora = Mid(Text1.Text, 1, 1)
minuti = Mid(Text1.Text, 3, 2)
Text2.Text = ora & ":" & minuti
Else
ora = Mid(Text1.Text, 1, 2)
minuti = Mid(Text1.Text, 4, 2) * 10
Text2.Text = ora & ":" & minuti
End If
End If
If orario = 5 Then
ora = Mid(Text1.Text, 1, 2)
minuti = Mid(Text1.Text, 4, 2)
Text2.Text = ora & ":" & minuti
End If