I think this line gives you a little headach:
strPrint = Left(strPrint, Len(strPrint) - Len(vbNewLine))
Try using this instead:
VB Code:
  1. If Right(strPrint, 2) = vbNewLine Then

  2.     strPrint = Left(strPrint, Len(strPrint) - Len(vbNewLine))

  3. End If

  4. 'OR

  5. strPrint = IIf(Right(strPrint, 2) = vbNewLine, Left(strPrint, Len(strPrint) - 2), strPrint)