ОК, ето ти едно друго решение, което и на мен не ми хрумна тогава:

Dim MyString As String

Dim Digits As String

Dim Letters As String

Dim i As Long

Dim StrLen As Long

Digits = ""

Letters = ""

MyString = "AsyRaao0IUAdas1234 re 43 ЩьЦЮrer 54//*'; + 123+"

StrLen = Len(MyString)

For i = 1 To StrLen Step 1

    If Mid(MyString, i, 1) Like "#" Then

       Digits = Digits + Mid(MyString, i, 1)

    End If

    If Mid(MyString, i, 1) Like "[A-Z][A-Я]" Then

       Letters = Letters + Mid(MyString, i, 1)

    End If

Next i

Редактирано от zhitov на 27.08.10 09:41.