Oops. Change the function as follows:

Public Function fcnArrayToSepPars(varIn As Variant) As String
Dim strTemp As String
Dim lngIndex As Long
  Select Case UBound(varIn)
    Case 0: fcnArrayToSepPars = varIn(0)
    Case Else
      fcnArrayToSepPars = varIn(0)
      lngIndex = 1
      Do While lngIndex <= UBound(varIn)
        fcnArrayToSepPars = fcnArrayToSepPars & vbCr & vbCr & varIn(lngIndex)
        lngIndex = lngIndex + 1
      Loop
  End Select
lbl_Exit:
  Exit Function
End Function