VB2005中通过串口发送命令

Public Sub FtSendStr(ByVal sendstr As String, ByVal RS232 As IO.Ports.SerialPort)
        Dim i As Integer
        Dim sj() As Byte
        ReDim sj(Len(sendstr) / 2 - 1)
        For i = 0 To Len(sendstr) / 2 - 1
            sj(i) = Val("&H" & Mid(sendstr, i * 2 + 1, 2))  '将字符串中对应的两个字符放入相应数组中；
        Next
        If RS232.IsOpen Then
            RS232.Write(sj, 0, sj.Length)
        Else
            MsgBox("端口未打开或被占用！")
        End If
    End Sub