Dividir un campo en 2 renglones, VB6

Hola que tal, tengo una aplicación en VB6 en la que utilizo algunas variables para imprimir un formato, la cuestión es que a veces el valor de la variable que se imprime contiene una descripción demasiado larga, lo que quiero es que se imprima en 2 renglones, ¿cómo le puedo hacer?
Parte del código es el siguiente:
Private Sub Imprime()
Printer.Orientation = 2
Printer.Font.Bold = True
Printer.FontBold = True
Printer.PrintQuality = -1
Printer.FontSize = 36
Printer.FontName = Printer.Fonts(7)
Printer.Print " " & Format(precio1, "###0.00")
Printer.FontName = Printer.Fonts(17)
Printer.Font.Size = 7
Printer.Print " " & nombre1
Printer.Font.Size = 6
Printer.Print " " & codigo1
Printer.Print " "
Printer.Print " "
Printer.Print " "
Printer.Print " "
Printer.Print " "
Printer.FontName = Printer.Fonts(7)
Printer.FontSize = 36
Printer.Print " " & Format(precio2, "###0.00")
Printer.FontName = Printer.Fonts(17)
Printer.Font.Size = 7
Printer.Print " " & nombre2
Printer.Font.Size = 6
Printer.Print " " & codigo2
Printer.EndDoc
End Sub
Es en la parte que dice: Printer. Print " " & nombre1
Ese es el campo que necesito imprimir en 2 renglones, traté de utilizar el comando & vbCrLf, pero solo hace el salto de línea sin el campo.
Espero me puedan ayudar, gracias.