Private Sub Command1_Click()
    Dim SomethingLikeArray() As String
    Dim iIndex As Integer
    
    
    
    
    ReDim SomethingLikeArray(1 To 3, 1 To 2)
    
    For iIndex = 1 To 3
        SomethingLikeArray(iIndex, 1) = "Level " & iIndex & ", item 1"
        SomethingLikeArray(iIndex, 2) = "Level " & iIndex & ", item 2"
    Next
    
    
    MsgBox ArrayKidding(SomethingLikeArray)
End Sub

Private Function ArrayKidding(MyArray() As String) As String
    Dim iDim1 As Integer
    Dim iDim2 As Integer
    Dim iIndex1 As Integer
    Dim iIndex2 As Integer
    Dim szString As String
    
    
    
    
    iDim1 = UBound(MyArray)
    iDim2 = UBound(MyArray, 2)
    
    For iIndex1 = 1 To iDim1
        For iIndex2 = 1 To iDim2
            ArrayKidding = ArrayKidding & MyArray(iIndex1, iIndex2) & vbNewLine
        Next
    Next
End Function