请vb高手指教mscomm控件接收数据问题?

                
    form1.mscomm1.output = chr$（16) + chr$（58) + pr + chr$（13)

option explicit
    dim sj（) as byte
    dim strdata as string
private sub command1_click（) '发送数据
    dim buffer as variant
    dim strsend as string
    dim i as integer
    redim sj（len（text1.text) / 2 - 1)
    for i = 0 to len（text1.text) - 1 step 2
        sj（i / 2) = val（"&h" & mid（text1.text, i + 1, 2))
    next
    mscomm1.output = sj
    strdata = ""
end sub

private sub form_load（)
    mscomm1.settings = "9600,n,8,1"
    mscomm1.rthreshold = 1
    mscomm1.portopen = true
    text1 = "103a0d"
end sub

private sub mscomm1_oncomm（)
'通讯事件发生
    dim indata as variant
    dim bytinput（) as byte
    dim intinputlen as integer
    dim i as integer
    select case mscomm1.commevent
        case comevreceive        '...有接受事件发生
            '此处添加处理接收的代码
            mscomm1.inputmode = cominputmodebinary    '二进制接收
            intinputlen = mscomm1.inbuffercount
            redim bytinput（intinputlen)
            bytinput = mscomm1.input
            'jieshou
            for i = 0 to ubound（bytinput)
                if len（hex（bytinput（i))) = 1 then
                    strdata = strdata & "0" & hex（bytinput（i))
                else
                    strdata = strdata & hex（bytinput（i))
                end if
            next
            text2.text = strdata
    end select
    mscomm1.inbuffercount = 0
    mscomm1.outbuffercount = 0
end sub

private sub command1_click（)
    timer1.enabled = true
end sub

private sub form_load（)
    mscomm1.settings = "9600,n,8,1"
    mscomm1.rthreshold = 1
    mscomm1.portopen = true
    text1 = "103a0d"
    timer1.interval = 1000 '
    timer1.enabled = false
end sub

private sub timer1_timer（)
    call command1_click
end sub

private declare sub sleep lib "kernel32" alias "sleep" （byval dwmilliseconds as long)

sleep （10)

option explicit
    private declare sub sleep lib "kernel32" （byval dwmilliseconds as long)
    dim sj（) as byte
    dim strdata as string
private sub command1_click（) '发送数据
    dim buffer as variant
    dim strsend as string
    dim i as integer
    redim sj（len（text1.text) / 2 - 1)
    for i = 0 to len（text1.text) - 1 step 2
        sj（i / 2) = val（"&h" & mid（text1.text, i + 1, 2))
    next
    mscomm1.output = sj
    strdata = ""
end sub

private sub form_load（)
    mscomm1.settings = "9600,n,8,1"
    mscomm1.rthreshold = 1
    mscomm1.portopen = true
    text1 = "103a0d"
end sub

private sub mscomm1_oncomm（)
'通讯事件发生
    dim indata as variant
    dim bytinput（) as byte
    dim intinputlen as integer
    dim i as integer
    select case mscomm1.commevent
        case comevreceive        '...有接受事件发生
            '此处添加处理接收的代码
            sleep （10)
            mscomm1.inputmode = cominputmodebinary    '二进制接收
            intinputlen = mscomm1.inbuffercount
            redim bytinput（intinputlen)
            bytinput = mscomm1.input
            'jieshou
            for i = 0 to ubound（bytinput)
                if len（hex（bytinput（i))) = 1 then
                    strdata = strdata & "0" & hex（bytinput（i))
                else
                    strdata = strdata & hex（bytinput（i))
                end if
            next
            text2.text = strdata
    end select
    mscomm1.inbuffercount = 0
    mscomm1.outbuffercount = 0
end sub

option explicit
    dim a as integer
private sub command1_click（)
    on error goto uerror
    for a = 1 to 4
        mscomm1.commport = a
        mscomm1.portopen = true
        if mscomm1.portopen = true then
            print "可用com号= "; a
            mscomm1.portopen = false
        else
        end if
    next
    exit sub
uerror:
    if err.number = 8005 then
        print "占用com号= "; a
    elseif err.number = 8002 then
        print "出错com号= "; a
    end if
    resume next
end sub