急求:串口通讯双向设置数值如何实现？

设计参数，我应该添加什么？怎么添？
Private Sub Command2_Click()
On Error GoTo ErrLine
Timer1.Enabled = False
If MSComm1.PortOpen = False Then
MSComm1.PortOpen = True
End If
shezhizhi = Val(Text2.Text) * 10 Call cmdWrite
ErrLine:
If Err.Number <> 0 Then
MsgBox CStr(Err.Number) + " " + Err.Description, vbOKOnly + vbInformation, "提示信息!"
End If
Err.Clear
End Sub

添加个文本框，直接。text设置到接受的那个变量

破天荒大开眼界的串口代码
建议你先在网上百度 mscomm