如何再函數中設定二維陣列

Dim para(1, 4) As String
Sub TestPara(ByRef para(,) As String)
para(0, 0) = "1"
para(0, 1) = "2"
para(1, 0) = "A"
para(1, 1) = "B"
End Sub