Нажав на кнопку CommandButton1 содержимое полей должны записываться в процедуру и сохраняться в массиве - VB

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

Дана форма(на скрине). Нажав на кнопку CommandButton1 содержимое полей должны записываться в процедуру и сохраняться в массиве. Помогите, в чём ошибки?

Public Sub Options()
    Dim Op(2) As Double
    Op(1) = TextBox1.Text
    Op(1) = TextBox2.Text
End Sub
 
Private Sub CommandButton1_Click()
    Call Options
End Sub

Решение задачи: «Нажав на кнопку CommandButton1 содержимое полей должны записываться в процедуру и сохраняться в массиве»

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

                            Option Explicit
Dim Op(1 To 2) As Double
 
Private Sub Options()
    Op(1) = Val(Replace(TextBox1.Text, ",", "."))
    Op(2) = Val(Replace(TextBox2.Text, ",", "."))
End Sub
 
Private Sub CommandButton1_Click()
    Options
    'Проверяем что в массиве
    MsgBox "Op(1)=" & Op(1) & vbTab & "Op(2)=" & Op(2)
End Sub
                        