Auch 0 als Wert umwandeln

Beispiel:
1234567 wird 1:23:46,67
aus 0005678 soll 0:00:56,78 werden.

Function umwandeln(uebergabe As String) As String
Dim strStunde As String
Dim strMinute As String
Dim strSekunde As String
Dim strHunderstel As String

If Len(uebergabe) <> 7 Then umwandeln = "": Exit Function

strStunde = Left(uebergabe, 1)
strMinute = Mid(uebergabe, 2, 2)
strSekunde = Mid(uebergabe, 4, 2)
strHunderstel = Right(uebergabe, 2)

umwandeln = strStunde + ":" + strMinute + ":" + strSekunde + "," + strHunderstel

End Function

Vielen Dank!

Tschüß
Rolf