Det jeg ville gøre var at løbe hele din variabel igennem med en for...next, inden jeg brugte den.
Så ville jeg tage ét tegn ad gangen, og tjekke op på det med IsNumeric.
Noget lign. det her:
Dim MyVar As Variant
Dim CurrentChar As Variant
Dim i As Integer
Dim MyNewVar As Variant
MyNewVar = ""
MyVar = InputBox("Indtast dit navn", "", "")
for i = 1 To Len(MyVar)
CurrentChar = Mid(MyVar, i, 1)
if IsNumeric(CurrentChar) Then
MyNewVar = MyNewVar & CurrentChar
end if
next
Glemte lige at sige at du skal bruge MyNewVar til, ja hvad du nu skal bruge den til, og ikke MyVar.
Indlæg senest redigeret d. 01.04.2007 17:16 af Bruger #10825