Dim userinput As String = "12:30:15,72"
 
'String in drei Teile zerlegen 
Dim parts() As String = userinput.Split(":"c)
'Teile in Zahlen umwandeln
Dim hours As Integer = CInt(parts(0))
Dim minutes As Integer = CInt(parts(1))
Dim seconds As Double = CDbl(parts(2))
'Aus den Zahlen den Excel-Wert berechnen
Dim vl As Double = hours / 24 + minutes / 1440 + seconds / 86400
'vl = 0.52101527777777779 etwas mehr als ein halber Tag