otra con respecto informes...

[ccca001]

numero es un textbox que tiene una gran cantidad de caracteres...
el problema es que si son dos lineas funciona pero con mas no, sigue cortando las silabas ...¿por que sera? ¿quieren revisarlo y ayudarme?


Private Sub Command1_Click()

largo = Len(numero) / 58
I = 1

If largo > 1 Then
For x = 1 To largo + 1
a = 58
impr = Mid(numero, I, a) '/ 10488
u = Mid(numero, a, 1)
If u <> "*" Or u = "" Then
Do While u <> " "
a = a - 1
impr = Mid(numero, I, a)
u = Mid(numero, a, 1)
Loop
End If
Debug.Print impr
I = I + a
'a = a + a
Next x
Else
impr = numero
Debug.Print impr
End If
end sub