visual basic y centrar un texto con margenes

mirad tengo en un textbox multiple un texto.
Ejemplo
Hola soy un cabrito.
mestoy rallando.
y no se como hacerlo
lo he provado todo.

y necesito ponerle nos margenes ascii y centrarlo en otro textbox:
||| hola soy un cabrito ||||
||| mestoy rallando ||||
||| y no se como hacerlo ||||
||| lo he provado todo. ||||

O sea centrado a cada margen.
Consigo centrarlo y hacerlo bien pero cuando hay un enter se jode, tenia pensado en el bucle ke coje las letras que me mire tb la condicion si es enter. PERO COMO VEO SI ES ENTER? el vbcrlf ese o como se escriva me dice ke no ...
El subrallado es el que no rula...


y2 = y
st = Text14.Text
While (y <> 60 + y2 & st <> vbCrLf )
y = y + 1
Wend
Text14.Text = Left$(Mid$(Text13.Text, y2), y)
x = Len(Text14.Text)
x = (71 - x)
Form3.Text1.Text = Form3.Text1.Text & vbCrLf
If (x Mod 2 = 0) Then
h = (x / 2)
For i = 0 To h
Form3.Text1.Text = Form3.Text1.Text & " "
Next
Form3.Text1.Text = Form3.Text1.Text & Text14.Text
For i = 0 To h
Form3.Text1.Text = Form3.Text1.Text & " "
Next
Else
h = (x + 1)
h = (h / 2)
For i = 0 To h
Form3.Text1.Text = Form3.Text1.Text & " "
Next
Form3.Text1.Text = Form3.Text1.Text & Text14.Text
h = (x - 1)
h = (h / 2)
For i = 0 To h
Form3.Text1.Text = Form3.Text1.Text & " "
Next
End If
Form3.Text1.Text = Form3.Text1.Text & "||||||"