Try this

Code:
OutString = String(27,"-")& vbCrLf
OutString = OutString & "|" & space(25) & "|" & vbcrlf
OutString = OutString & "|" & text1.text & space(25-len(text1.text)) & "|" & vbcrlf
OutString = OutString & "|" & space(25) & "|" & vbcrlf
OutString = OutString & "|" & text2.text & space(25-len(text2.text)) & "|" & vbcrlf
OutString = OutString & "|" & space(25) & "|" & vbcrlf
OutString = Outstring & String(27,"-")
This example works if you use a font like courier new.

Hope this helps