Как автоматически присвоить имя переменной.

[ValeraL]

Пример есть цикл, обработка текста, допустим вырезаем 5 символов в строке и надо присвоить их переменной n1( к примеру), далее еще 5 символов и они должны присвоиться переменной n2 и так далее. до конца. Не подскажете как реализовать автоматическое присвоение имен переменных?

[VVitafresh]

Использовать массив (Array).

[ValeraL]

p=0
m=0
Do
p = InStr(p + 1, StrText, "@", 1)
N = p - m
If p <> 0 Then str = Mid(StrText, m, N) Else Exit Do
m = p + 1
Loop

Ну вот напрмер как переменная str при следующем вырезании между символами @ может стать str1. Как мне задать массив в этом случае.
Не сочтите за назойливость я в этом деле никакой еще.

[VVitafresh]

Пример работы с массивом:

Код: Выделить всё

Private Sub Form_Load()
    Dim i As Long
    Dim str() As String
    For i = 0 To 10
        ReDim Preserve str(i)
        str(i) = "Value: " & i
        Debug.Print str(i)
    Next
End Sub