[Ayuda] Proyecto en vb6 para pasar a pdf un textbox

Hola a todos!

Estoy realizando un proyecto en vb6 para crear un archivo pdf a partir del texto de un textbox, y no consigo que me salga en varias lineas el pdf, me estoy volviendo loco ya, por eso os posteo aquí jaja Este es el codigo que a ver si me ayudais a modificar para que salga correctamente.

Código:

Dim pdf As PdfComLib.PdfDoc

Private Sub cmdPDF_Click()
Dim key() As String
Dim Real(25) As String
Dim X, CaratesPorLinia, num_Lineas, Lineas_Escritas As Integer
Dim Escrito As String
CaratesPorLinia = 112
key = Split(Text2.Text, vbCrLf) 'rescato el texto con los saltos de línea
Printer.FontName = "Courier New"
Printer.FontBold = False
Printer.FontSize = 10
Printer.CurrentY = 9500
num_Lineas = (Len(key(X)) / CaratesPorLinia)
r = 0
Lineas_Escritas = 0
Set pdf = New PdfDoc
pdf.AddPage (1)
pdf.SetFont "Arial", "", 10
MsgBox num_Lineas
'For X = LBound(key) To UBound(key)
'Do While num_Lineas > Lineas_Escritas
If Len(key(X)) > CaratesPorLinia Then
'For I = 0 To 50
'Real(r) = Left(key(X), CaratesPorLinia)
pdf.Cell 20 + I, 10, Left(key(X), CaratesPorLinia), 0, 20, 10, 0, ""
'r = r + 1
pdf.Cell 20 + I, 10, Right(key(X), (Len(key(X)) - CaratesPorLinia)), 0, 20, 10, 0, ""
'Lineas_Escritas = Lineas_Escritas + 1
'Next
End If
'Loop
If num_Lineas < 1 Then
pdf.Cell 20, 10, key(X), 0, 20, 10, 0, ""
End If
'Next
NombreDocumento = "Doc1.pdf"
pdf.SaveAsFile (NombreDocumento)
End Sub

P.D: El .dll que uso para generar el pdf es el pdfcom.dll, es gratuito, con buscar wxpdf en google sale la primera pagina con unos cuantos ejemplos a cerca de su uso.

Muchas Gracias de Antemano! Un Saludo!