inserire campi

[donini]

ho creato questo programma in [vb5] per una stampante di codici a barre fin qui tutto ok ma siccome ho bisogno di inserire altri campi ,la stampante no mi scrive i nuovi campi dove sbaglio?
grazie


meto visual basic

Private STX As String
Private ETX As String
Private CR As String
Private ETB As String
Private ESC As String
Private Sub Command1_Click()
STX = Chr$(2)
ETX = Chr$(3)
CR = Chr$(13)
ETB = Chr$(23)
ESC = Chr$(27)


MSComm1.CommPort = 2
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
MSComm1.Output = STX & ESC + "D77032" + CR + ETB
MSComm1.Output = STX + "00600030000100211100" + CR + ETB
MSComm1.Output = STX + "008018010000222" + CR + ETB
MSComm1.Output = STX + "008014010004222" + CR + ETB

MSComm1.Output = STX + CR + CR + CR + CR + ETX

MSComm1.Output = STX + ESC + "C" + "99999977" + CR + ETB
MSComm1.Output = STX + "801234567890" + CR + ETB
MSComm1.Output = STX + "PATATINE" + CR + ETB
MSComm1.Output = STX + "€ 1,50" + CR + ETX


MSComm1.Output = STX + ESC + "f0009" + ETB

MSComm1.PortOpen = False

End Sub