nullen achter een getal

[old Hippy]

Hallo allemaal

ik zoek een oplossing voor het volgende.
ik heb een getal b.v. 104 en wil een notatie hebben van 100000.
dus het laatste getal zijn het aantal nullen die achter de eerste twee getallen komt.

101 moet dus 100 worden
222 moet dus 2200 worden
105 moet dus 1000000 worden

getallen moeten zonder punten en of komma's
kan iemand mij hier bij behulpzaam zijn?

M.v.g Old Hippy

 

[edmoor]

Zoiets?

        Dim sGetal As String
        Dim lGetal As Long
        Dim Nullen As Integer
        Dim i As Integer

        lGetal = 222
        sGetal = lGetal
        Nullen = Mid(sGetal, Len(sGetal), 1)
        sGetal = Mid(sGetal, 1, Len(sGetal) - 1)

        For i = 1 To Nullen
            sGetal = sGetal & "0"
        Next i

        lGetal = CLng(sGetal)
        MsgBox(lGetal)

 

[old Hippy]

Hallo Edmoor
Veel dank voor je snelle oplossing.
dit was precies wat ik zocht.

Dank voor de hulp
met een vriendelijke groet Old Hippy