Visual Basic 6 - problemi con seriale

salve ...ringrazio chi volesse aiutarmi.
nuovissimo di zecca mi accingo a chiedervi come programmare in vb6 (imparato da poco) la porta usb. visto che prodotta una stringa e inviata sulla seriale non viene loggata da un software monitor (device monitor ) se avvio il software SD84.exe (dato in dotazione all'acquisto della scheda elettronica SD84.exe canali servi) essa funziona evedenziandomi la stringa di comando AAA0010101DC05 in decimale (170 160 55 01 01 02 DC 05) la piastra sd84 mostra un'accensione quando invio una qualsiasi stringa allego un piccolo codice da me prodotto:

sul form list1 text PortNumber, pulsante connect , command1 uscita.

Private Sub Command1_Click()
Dim Connected As Integer
stringa_2 = Chr$(170) & Chr$(160) & Chr$(85) & Chr$(1) & Chr$(1) & Chr$(2) & Chr$(220) & Chr$(5)
List1.AddItem stringa_2
MSComm1.Output = stringa_2
MSComm1.Output = stringa_2
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Connect_Click()
If Connected = 1 Then MSComm1.PortOpen = False
MSComm1.CommPort = Val(PortNumber)
On Error GoTo notopen
MSComm1.PortOpen = True
On Error GoTo 0
Connected = 1
List1.AddItem "connesso porta " & Val(PortNumber)
Label1.Caption = "Connesso alla porta seriale"
Exit Sub
notopen:
StatusLabel = "Could Not Open That Port"
End Sub
Private Sub Form_Load()
Connected = 0
End Sub

1) lascia perdere vb6 e passa a vb.net. Vb6 è deprecato dalla stessa Microsoft e già in Windows 7 non viene più supportato. Inoltre la gestione della seriale è molto più seplice.

Comunque il primo risultato della ricerca di google it-lang-vb.net/Documentazione/Articoli/…

2) non si campisce nulla della richiesta, se ogni tanto usassi la punteggiatura magari sarebbe più semplice

BaudRate
(Bit/sec)
..
9600
19200
38400
57600
115200 

Io ho la necessita' di connettermi a baud 76800.
L'anno scorso,avendo la stessa necessita', riuscivo a connettermi e non ricordo ci volessero particolari settaggi.
Mi basto' aggiungere la voce 76800

With Combo3
.AddItem "4800"
.AddItem "9600"
.AddItem "14400"
.AddItem "19200"
.AddItem "28800"
.AddItem "38400"
.AddItem "57600"
.AddItem "76800"
.AddItem "115200"
.Text = GetSetting(APP.Title, "Setting", "DataBaud", "76800")
End With

Adesso ,riprovandoci non va piu', mi dice
"Couldn,t set to baud value"
e vedo anche nella tabella dei valori che il 76800 non c'è.

Vorrei, se possibile, qualche consiglio in merito, se posso settare in qualche altro modo, se esiste altro su cui lavorare e riuscire nuovamente a comunicare a 76800.

Un saluto,Ciao