Private tmpTable(30 To 130, 1 To 4) As Variant
 
Private Sub Command1_Click()
   fillArray 30, 1, 2, 3, 4
   MsgBox tmpTable(30, 3)
End Sub
 
Private Sub fillArray(Index, a, b, c, d)
   tmpTable(Index, 1) = a
   tmpTable(Index, 2) = b
   tmpTable(Index, 3) = c
   tmpTable(Index, 4) = d
End Sub