Roy try this with a textbox multiline = True and a command button.
Option Explicit
Private Sub Command1_Click()
Dim myStr As String
Dim myStrLen As Long
Dim myLoop As Long
Dim myEndStr As String
myStr = Text1.Text
myStrLen = Len(myStr)
For myLoop = 1 To myStrLen
myEndStr = myEndStr & (Mid$(myStr, myLoop, 1) & vbNewLine)
Next myLoop
Text1.Text = myEndStr
Command1.Visible = False
End Sub
Private Sub Form_Load()
Text1.Text = "HELLO WORLD"
End Sub
George
"Roy Harbert" <rh******@verizon.net> wrote in message
news:4B%rf.766$Rb.621@trndny02...
Is there a text box that can rotate or a way to print text rotated 90
degrees? I've been looking but can't find anything.