• Home
 · 
• String Manipulation
 · 
• Works for both text boxes and printing from vb. This is a simple code to wrap a long string into se

Works for both text boxes and printing from vb. This is a simple code to wrap a long string into se

Works for both text boxes and printing from vb. This is a simple code to wrap a long string into seperate lines without spliting in the middle

Rate Works for both text boxes and printing from vb. This is a simple code to wrap a long string into se

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Dim Found As Integer

If Len(Text1.Text) < 21 Then
   Text2.Text = Text1.Text
Else
   Found = InStrRev(Text1.Text, " ", 20)
   Text2.Text = Mid(Text1.Text, 1, Val(Found))
   Text3.Text = Mid(Text1.Text, Val(Found) + 1)
End If