Function ar_donor()
    Dim k(3, 5)
    
    For i = 1 To 3
        For j = 1 To 5
            k(i, j) = i * j
        Next j
    Next i
    
    ar_donor = k
End Function

Sub ar_accepter(q)
    s = ""
    For i = LBound(q, 1) To UBound(q, 1)
        For j = LBound(q, 2) To UBound(q, 2)
            s = s & q(i, j) & " "
        Next j
        s = s + vbCrLf
    Next i
    MsgBox s
End Sub

Sub zyxabc()
    ar = ar_donor()
    ar_accepter (ar)
End Sub