¿Cómo escribir un programa en VB para que el contenido del cuadro de texto tenga espacios al principio de cada línea?

Repite la pregunta. El salto de línea en el cuadro de texto de VB es de dos caracteres chr(13) y chr(10). La programación lee cada uno de los caracteres hasta que hay un salto de línea. el número al final. El número de espacios está bien.

He depurado el siguiente programa (un cuadro de texto y un botón de comando se colocan en el formulario):

Private Sub Command1_Click()

Dim CR As Cadena, Strout como cadena, Tmp como cadena, I como largo

Tmp = Text1.Text

Si Len(Tmp) < 2, entonces salga de Sub

Strout = Espacio(2)

CR = Chr(13) & Chr(10)

Hacer mientras Len(Tmp) <> 0

I = InStr( Tmp, CR)

Si I <> 0 entonces

Strout = Strout & Left(Tmp, I + 1) & Space(2)

Tmp = Mid(Tmp, I + 2)

Else

Salir Do

End If

Bucle

Strout = Strout & Tmp

Texto1 = Strout

End Sub