Ошибка: "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