Dim sstr1 As String
    Dim sstr2 As String
    Dim i As Integer
 
    sstr1 = "11a"
    For i = 1 To Len(sstr1)
        Select Case Mid(sstr1, i, 1)
        Case 0 To 9
            sstr2 = sstr2 & Mid(sstr1, i, 1)
        End Select
    Next i