необходимо разобраться в ошибке в VBA

[илья1992]

Private Sub CommandButton1_Click()
Sub test()
    Dim A() As Long, Y() As String, i As Integer
    i = InputBox("Введите количество чисел")
    ReDim A(i - 1), Y(i - 1)
    For i = 0 To UBound(A)
        A(i) = InputBox("Введите число")
        Y(i) = A(i) ^ 2 + A(i) - Sin(A(i))
    Next i
    MsgBox (Join(Y, vbCrLf))
End Sub

Выдает "Ошибка компиляции: ожидаются последние подгруппы" Помогите чайнику понять где он накасячил.

[Slym]

у тебя 2 Sub и 1 End Sub

[илья1992]

Сообщение от Slym

у тебя 2 Sub и 1 End Sub

а как правильно сделать?

[Stilet]

Sub test() убери совсем.

[илья1992]

Сообщение от Stilet

Sub test() убери совсем.

вот я чайник)))

[Stilet]

вот я чайник)))

Да не кипятись )))