通过VB编程，如何实现计算机同8位单片机的串口通信？

'单字节
Option Explicit

Private Sub Command1_Click()'发送
Dim number As Integer
Dim outbyte(0) As Byte
number = Val(Text1.Text)
outbyte(0) = CByte(number)
MSComm1.OutBufferCount = 0
MSComm1.Output = outbyte
Print outbyte(0)
End Sub

Private Sub Command2_Click()
MSComm1.PortOpen = False
Unload Form1
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputMode = comInputModeBinary '二进制接收
MSComm1.PortOpen = True
MSComm1.InBufferCount = 0
End Sub

Private Sub MSComm1_OnComm()'接收
Dim indata As Variant
Dim arr(0) As Byte
Select Case MSComm1.CommEvent
Case comEvReceive
indata = MSComm1.Input
arr(0) = AscB(indata)
Text2.Text = arr(0)
MSComm1.InBufferCount = 0
End Select
End Sub

**********************VB代码 PC**************************
Dim s