Quando c'e' un errore bisogna indicare *sempre*

quale errore

e

dove

si verifica ... Sul codice, ti posso subito dire:

Cls

come cancellazione del form, non esiste. Toglilo.

Questa

MSComm1.Output "DMX Printer Test Program (press any key)"

non c'entra nulla. Nel programma originale la frase viene visualizzata sullo schermo, non inviato alla seriale.
Quindi nel tuo programma puoi inserire la frase nel command

Command1.Caption = "DMX Printer Test Program"

Questa parte

While I$ = ""
I$ = INKEY$
Wend

la elimini perche' non ha senso in VB6

Il resto dovrebbe diventare

Desc$ = "10K OHM 1/4 WATT"
pcs = 590
MSComm1.Output = Chr$(2) & "L" & vbcr
MSComm1.Output = "H07" & vbcr
MSComm1.Output = "D11" & vbcr
MSComm1.Output = "191100801000025" & vbcr
MSComm1.Output = "1a6210000000050" & vbcr
MSComm1.Output = "E" & vbcr
MSComm1.PortOpen = False