Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Анатолий (Киев)
В вашем примере функция Split делит строку на слова, используя пробел, и возвращает слово с указанным Index-ом. А vbNullString нужна для ситуации, когда в переменной str значение Null.
Для вашей задачи этот пример не годится. Мам нужен цикл по символам строки и анализ каждого символа. Например:

Dim a$, b$, c$, i%, s1 As String * 1     a = "5A5B6MA"  For i = 1 To Len(a)     s1 = Mid$(a, i, 1)   Select Case Asc(s1)   Case 48 To 57: b = b & s1   Case Else: c = c & s1   End Select  Next Debug.Print "Числа: " & b Debug.Print "Буквы: " & c