如發送 *RST 到機子的話是不是直接：
    MSComm1.Settings = "9600,n,7,1"
If MSComm1.PortOpen <> True Then
MSComm1.PortOpen = True
End If
  MSComm1.Output ="*RST"  
strinput = MSComm1.Input
Text2.Text = strinput
End Sub