About send data to Com-port?

[youqing]

I want to program a program sending data to Comport, which connect to RS-232.
Here is the code:
Private Sub Form_Load()
Label1.Caption = "Finding a width from Barcode"
Label1.FontSize = 12
Label1.Alignment = 2
Label1.Tag = 0
Label2.Caption = "Barcode:"
Label2.FontSize = 10
Label3.Caption = "Width:"
Label3.FontSize = 10
Label3.Enabled = False
Text1.Text = ""
Text1.FontSize = 10
Text2.Text = ""
Text2.FontSize = 10
Text2.Enabled = False
Command1.Caption = "Search"
Command1.FontSize = 10
Command2.Caption = "Clear"
Command2.FontSize = 10
Command3.Caption = "Quit"
Command3.FontSize = 10
MSComm1.Settings = "9600,n,8,1"

End Sub
Private Sub Command1_Click()
Dim Target As String
Dim Current As String
MSComm1.PortOpen = True
MSComm1.Output = Text2.Text
MSComm1.PortOpen = False
Target = Text1.Text
Open "Test1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Current
If InStr(Current, Target) Then
Label3.Enabled = True
Text2.Enabled = True
Text2.Text = Right(Current, 4)
Else
MsgBox ("Cannot find this barcode,please try again.")
Exit Do
End If
Loop
Close #1
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text2.Enabled = False
Label3.Enabled = False
End Sub
Private Sub Command3_Click()
Close #1
End
End Sub

Private Sub Option1_Click()
Select Case Index
Case 0
MSComm1.CommPort = 1
If MSComm1.PortOpen Then
MsgBox "Sorry,COM1 was used,please choose another one."
End If

Case 1
MSComm1.CommPort = 2
If MSComm1.PortOpen Then
MsgBox "Sorry,COM1 was used,please choose another one."
End If
End Select
End Sub
It is not working.
Anyone can help me fix the problem?
Thanks a lot!

[sashi]

Hi there,

kidly refer to below attached links, hope it helps you to get started with.. take care my fren.. :)

http://www.lvr.com/serport.htm
http://prism.mem.drexel.edu/stanciu/Web_page/SerialVB.htm

I want to program a program sending data to Comport, which connect to RS-232.
Here is the code:
Private Sub Form_Load()
Label1.Caption = "Finding a width from Barcode"
Label1.FontSize = 12
Label1.Alignment = 2
Label1.Tag = 0
Label2.Caption = "Barcode:"
Label2.FontSize = 10
Label3.Caption = "Width:"
Label3.FontSize = 10
Label3.Enabled = False
Text1.Text = ""
Text1.FontSize = 10
Text2.Text = ""
Text2.FontSize = 10
Text2.Enabled = False
Command1.Caption = "Search"
Command1.FontSize = 10
Command2.Caption = "Clear"
Command2.FontSize = 10
Command3.Caption = "Quit"
Command3.FontSize = 10
MSComm1.Settings = "9600,n,8,1"

End Sub
Private Sub Command1_Click()
Dim Target As String
Dim Current As String
MSComm1.PortOpen = True
MSComm1.Output = Text2.Text
MSComm1.PortOpen = False
Target = Text1.Text
Open "Test1.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, Current
If InStr(Current, Target) Then
Label3.Enabled = True
Text2.Enabled = True
Text2.Text = Right(Current, 4)
Else
MsgBox ("Cannot find this barcode,please try again.")
Exit Do
End If
Loop
Close #1
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text2.Enabled = False
Label3.Enabled = False
End Sub
Private Sub Command3_Click()
Close #1
End
End Sub

Private Sub Option1_Click()
Select Case Index
Case 0
MSComm1.CommPort = 1
If MSComm1.PortOpen Then
MsgBox "Sorry,COM1 was used,please choose another one."
End If

Case 1
MSComm1.CommPort = 2
If MSComm1.PortOpen Then
MsgBox "Sorry,COM1 was used,please choose another one."
End If
End Select
End Sub
It is not working.
Anyone can help me fix the problem?
Thanks a lot!