Visual Basic - Cortar Cadena de Caracteres

Tengo una cadena de 250 caracteres que debo imprimir, pero me piden que los impirma en 50 caracteres cada linea.

Como puedo cortar y seguir el texto.

Call SubStrings( TuStringDe250Caraceteres, 50 )

'...

Private Sub SubStrings( cString As String, nLongitud As Long )
Dim nInicio As Long
Dim cSubString As String

nInicio = 1

If nLongitud < 1 Then
nLongitud = 1
End If

Do While True
cSubString = Mid(cString, nInicio, nLongitud)
'... Imprimes cSubString
nInicio = nInicio + nLongitud
If nInicio > LEN(cString) Then
Exit Sub
End If
Loop

' ...

puedes utilizar la funcion len y mid para solamente imprimir los primeros 50 y asi sucesivamente

Visual Basic utiliza los & para concatenar cadenas y (+ ) tambien ,
los & se utilizan para concatenar "CADENAS" Y "+" PARA CONCATENAR
VARIABLES, EJEMPLO:
CADENAS: " HOLA " & " COMO " & " ESTAS " _ &
" YO " & "BIEN"



VARIABLES: SUPÓNGAMOS QUE X=1 W=2 Y=3
X + W+ Y EL RESULTADO OBTENIDO SERIA
(123)

Octavio:
Probá el siguiente código

Private Sub ImprimirCadena50(ByVal cad As String)
On Error Resume Next
Dim k As Long, m As Long, s As String
m = Len(cad)
If m < 1 Then Exit Sub
If m < 50 Then
Printer.Print cad 'Reemplazá esta línea por tu procedimiento para imprimir
Exit Sub
End If
For k = 1 To (CInt(m / 50) + 1)
s = Mid$(cad, (k - 1) * 50 + 1, 50)
If s <> "" Then Printer.Print s 'Reemplazá esta línea por tu procedimiento para imprimir
Next k
End Sub

Saludos Ruri