Подскажите что тут не так? - VB

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

Private Sub Command1_Click()
Dim A(1 To 7) As Single
For I = 1 To 7
A(I) = Val(InputBox("введите число", "введение массива")(введено 2 4 -3 -7 5 -6 -12))
Next I
B = A(1)
For I = 1 To 7
If A(I) > B Then B = A(I)
Print B
Next
End Sub

null

и тут)

может ты VBA с VB6 попутал?

Решение задачи: «Подскажите что тут не так?»

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

                            Private Sub Command1_Click()
Dim A(1 To 7) As Single
For I = 1 To 7
A(I) = Val(InputBox("введите число", "введение массива")) '(введено 2 4 -3 -7 5 -6 -12))
Next I
Me.Cls
B = A(1)
For I = 1 To 7
If A(I) > B Then B = A(I)
Next
Print "max = " & B
End Sub
Private Sub Command2_Click()
Picture1.Scale (-10, 10)-(10, -10)
Picture1.Line (-10, 0)-(10, 0)
For I = -9 To 9
Picture1.PSet (I, 0), vbWhite
Picture1.Print I
Next I
Picture1.Line (0, -10)-(0, 10)
For I = -9 To 9
Picture1.PSet (0, I), vbWhite
Picture1.Print I
Next I
End Sub
                        