Zahlen vor eine Zahl stellen

    Hallo zusammen,


    ich komme irgendwie nicht weiter. Ich will eine Zahl, sagen wir mal 74 auf 5 Stellen erweitern. Heist hier 3 Nullen vorweg.


    Ich habe nun die Gesamtlänge ermittelt (2). Diese von 5 abgezogen, bleiben 3 Nullen um auf 5 Stellen zu kommen. Wie bekommen ich aber das Format 00074 ? Ist die übergebene Zahl 1 stellig, brauch ich 4 Nullen vorweg. Bei 5 bleibt alles we es ist. Die Function wird wieder verlassen.


    Function fünfstellig(srcpapaid As Integer)

    Dim lenge As Integer
    Dim localList As Integer
    Dim differenz As Integer
    Dim neuid As String

    locallist=srcpapaid
    lenge = Len( localList )

    differenz = 5 - lenge

    If lenge < 5 Then
    For i=1 To differenz
    neuid = "0"+ locallist
    Msgbox Cstr(differenz)
    Next
    End If
    fünfstellig=neuid
    End Function