How to Print an Array

[SmokeEater]

I have this code

Sub DisplayArray(InArray() As String)
  Dim i As Integer, j As Integer
  For i = LBound(InArray, 1) To UBound(InArray, 1)
    For j = LBound(InArray, 2) To UBound(InArray, 2)
      Debug.Print InArray(i, j),
    Next j
    Debug.Print
  Next i
End Sub

which very nicely prints my array in the immediate window. My problem is that I would like to print this array on a report. I'm stumped. Any help would be appreciated.

 

[Remou]

Why not set a textbox to the name of a function?

Function DisplayArray(InArray() As String)
  Dim i As Integer, j As Integer
  For i = LBound(InArray, 1) To UBound(InArray, 1)
    For j = LBound(InArray, 2) To UBound(InArray, 2)
      strText= strText & InArray(i, j),
    Next j
    Debug.Print
  Next i
DisplayArray=strText
End Function

Or there abouts.

 

[SmokeEater]

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 InArray(j, k) = "" Then
            mSTR1 = " "
        Else
            mSTR1 = InArray(j, k)
        End If
       mSTR = mSTR & mSTR1
    Next k
     '  Debug.Print
    mSTR = mSTR & vbCrLf
  Next j
DisplayArray= mSTR
End Function