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)