see if this helps:

Sub FindNumericPartOfAcctNumber()

StringToEvaluate = ActiveCell.Value


StringToEvaluate=LTrim(StringToEvaluate)

StringToEvaluate=RTrim(StringToEvaluate)

StrLength = Len(StringToEvaluate)
LeftNumeric = 0

For ct = 1 To StrLength
vCharacter = Mid(StringToEvaluate, ct, 1)
Select Case vCharacter
Case 0 To 9
LeftNumeric = LeftNumeric + 1
Case Else
ct = StrLength
End Select
Next ct
NumericPartOfAcctNumber = Left(StringToEvaluate, LeftNumeric)

End Sub