The final code that works looks like this
Function DisplayArray(InArray() As String)
Dim mSTR
Dim mSTR1
Dim j As Integer, k As Integer
For j = LBound(InArray, 1) To UBound(InArray, 1)
For k = LBound(InArray, 2) To UBound(InArray, 2)
' Debug.Print InArray(j, k),
If...