so sieht mein quellcode aus. ich habe viele bespiele probiert, aber bis jetzt hat OO basic den code nie erkannt. wie muss ich wo, was einfügen

bin absoluter neuling, deshalb ein bischen verständnis

...
Sub main
Dim s As string
Dim sendstr as string
oObj = createUnoService("org.openoffice.comp.rsapi")
oObj.setdevice("COM1")
sendstr = ("*G1$C1$T") 'vorbelegung
sendstr = sendstr & TextBox 'hier soll der erste Datensatz aus der Box gesendet werden
sendstr = sendstr & ("$F")
'sendstr = sendstr & TextBox1 'hier soll der zweite Datensatz aus der Box gesendet werden
sendstr = sendstr & chr(10)&chr(13)
oObj.opencom("9600,8,2")
a = oObj.rts(1)
oObj.sendstring(sendstr)
oObj.closecom()
MfG
so sieht mein quellcode aus. ich habe viele bespiele probiert, aber bis jetzt hat OO basic den code nie erkannt. wie muss ich wo, was einfügen :-(
bin absoluter neuling, deshalb ein bischen verständnis :-P ...
Sub main
Dim s As string
Dim sendstr as string
oObj = createUnoService("org.openoffice.comp.rsapi")
oObj.setdevice("COM1")
sendstr = ("*G1$C1$T") 'vorbelegung
sendstr = sendstr & TextBox 'hier soll der erste Datensatz aus der Box gesendet werden
sendstr = sendstr & ("$F")
'sendstr = sendstr & TextBox1 'hier soll der zweite Datensatz aus der Box gesendet werden
sendstr = sendstr & chr(10)&chr(13)
oObj.opencom("9600,8,2")
a = oObj.rts(1)
oObj.sendstring(sendstr)
oObj.closecom()
MfG