Userform Array ein und auslesen

Private Sub CommandButton1_Click() 'Werte in Tabelle schreiben
Dim arrSt
Dim i As Integer
arrSt = Array(Me.txtSt_Art1, Me.txtSt_Bez1, Me.txtSt_Mod1, Me.cboSt_Arten1, Me. _
cboSt_Bez1)
For i = LBound(arrSt, 1) To UBound(arrSt, 1)
Cells(i + 2, 2) = arrSt(i)
Next
End Sub

Private Sub CommandButton2_Click() 'Werte aus Tabelle in Steuerelemente schreiben
Dim arrSt
Dim i As Integer
arrSt = Array(txtSt_Art1, txtSt_Bez1, txtSt_Mod1, cboSt_Arten1, cboSt_Bez1)
For i = 2 To 6
arrSt(i - 1) = Cells(i, 2)
Next
End Sub