How to jion weight scale to my PC

import system.io

public class form1

dim comports as array

private sub form1_load
comports=io.ports.serialport.getportnames
serialport.portname="com3"
serialport.bauderate=9600
serialport.parity=io.ports.parity.none
// <<= from where com serialport1 ?
serialport1.stopbits=io.ports.stopbits.one
serialport1.databits=8
// <<= from where comes serial1 ?
if serialport1.isopen=false
serial1.portname="com3"
end if 
// <<= missing end Sub here 

private sub serialport1_datareceived(byvalsender as object, byval e as system.io.ports.serialdatareceivedEventArgs)
if serialport1.isopen=true then
Read()
end if 
end sub

private sub Read()
if serialport1.isopen then
Dim Data as string=serialport1.readexisting()
frist_w.text=data
end if 
end sub

// <<= missing End Class here
<pre>