Haber te simplifico la vida un poco... :
En este ejemplo asume que la variable cadena es el resultado que obtienes de tu consulta de tu bd :
Código vb:
Ver original'Se asume que se recibe una cadena de tu consulta
Dim cadena As String = "Hola que tal como estas? Veo que no andas bien con los recorridos de cadenas.... Pero bueno aqui en Forosdelweb estamos para ayudarte :).Cualquier duda nos la preguntas!"
'Creamos un contador
Dim contador As Integer = 0
'Creamos una variable que define la cantidad de caracteres por linea
Dim longitud_maxima As Integer = 25
'La nueva cadena a imprimir en el textbox multiline
Dim nueva_cadena As String = String.Empty
Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Recorremos toda la cadena
For Each x As Char In cadena.ToCharArray
'Incrementamos el contador
contador += 1
'si el contador es igual a la longitus maxima asignada
If contador = longitud_maxima Then
'Adjunto el caracter y le doy un salto de linea
nueva_cadena = nueva_cadena & x & vbCrLf
'Inicializo el contador a 0
contador = 0
'Sino...
Else
'Sigo adjuntando los caracteres a la nueva cadena
nueva_cadena = nueva_cadena & x
End If
Next
'Una vez finalizado el recorrido adjunto la nueva
'cadena al textbox multiline
TextBox1.Text = nueva_cadena
End Sub
Estudialo!!!!!!!!!!!!!. Saludos!
.