Ошибка: "wrong number of argument or invalid property assignment" - VB

Формулировка задачи:

For i = 1 To ASize
    A(i - 1) = Text1.Text(i)
Next i

почему ругается на данную конструкцию. ASize = 255, ввожу в текстовое поле строку хочу перекинуть её в объявленный массив

Private Sub Command1_Click()
Dim i, ASize As Integer
Dim A(255) As String
ASize = UBound(A) - LBound(A)
For i = 1 To ASize
    A(i - 1) = Text1.Text(i)
Next i
End Sub

как делать кто подскажет? выдаёт ошибку wrong number of argument or invalid property assignment

Решение задачи: «Ошибка: "wrong number of argument or invalid property assignment"»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim i As Integer
Dim A(1 to 255) As String
For i = LBound(A)  To  UBound(A) 
    A(i) = mid(Text1.Text,i,1)
Next i
End Sub
                        