Führende 0en aus String entfernen

' Diese Funktion ist zwingend erforderlich! Public Function DoWork() As Object ' Dieser Beispielcode aggiert wie der Clone Heater ' nur mit dem Unterschied, dass mehr als ein Parameter übergeben werden kann ' und davon der letzte Parameter zurückgegeben wird :-) ' weitere Infos bzw. Beispiele finden Sie in der (F1) Hilfe Dim count as Integer Dim input as String dim out as String count = InValues.Length input = InValues(0).GetString() out = "" out = fnFNullenWeg(input) return out End Function Function fnFNullenWeg(strText As String) As String Dim i As Integer For i = 1 To Len(strText) If Left$(strText, 1) = "0" Then strText = Right$(strText, Len(strText) - 1) Else Exit For End If Next i fnFNullenWeg = strText End Function