Hi,

This would work if the rCrit is either a single row/column range.

Code:
If rCrit.Columns.Count > 1 Then
    Debug.Print Join(Application.Transpose(Application.Transpose(rCrit.Value)), ",")
Else
    Debug.Print Join(Application.Transpose(rCrit.Value), ",")
End If