lave streng om til tal

Jeg har "lånt" følgende fra et andet indlæg her i eksperten men det virker ikke helt som det skal. Jeg kan ikke selv regne ud hvad der er galt. Det jeg er interesseret i, er en funktion der laver en streng om til et tal. F.eks.

100A = 100
A100 = 100
A1A1 = 11
1AAA = 1

Hvis jeg bruger eksemplet bliver 2A til 20 !!

varstr = Text2
varstr = Replace(varstr, ".", "")
varstr = Replace(varstr, "-", "")

For i = 1 To Len(varstr)
    If Asc(Mid(varstr, i, 1)) > 47 And Asc(Mid(varstr, i, 1)) < 58 Then
        varTal = varTal & Mid(varstr, i, 1)
        tal = True
    ElseIf tal = True Then
        varTal = varTal & ";"
        tal = False
    End If
Next
arrTal = Split(varTal, ";")
For j = 0 To UBound(arrTal)
    sumtal = sumtal & Val(arrTal(j))
Next
Text31 = sumtal