vb6串口接收3个字节的16进制字节然后赋值给变量wyh

以下是一个VB6程序示例，演示如何从串口接收3个字节的16进制字节，并将其赋值给变量wyh：

Private Sub Form_Load()

    '打开串口
    MSComm1.CommPort = 1
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.PortOpen = True

End Sub

Private Sub MSComm1_OnComm()

    Dim buffer(2) As Byte
    Dim wyh As Long

    If MSComm1.CommEvent = comEvReceive Then
        '接收3个字节的数据
        MSComm1.InputLen = 3
        MSComm1.InputMode = comInputModeBinary
        MSComm1.Input(buffer)

        '将3个字节的数据转换为长整型数
        wyh = buffer(0) * 256 * 256 + buffer(1) * 256 + buffer(2)

        '在调试窗口中显示接收到的数据
        Debug.Print "接收到的数据：0x" & Hex(buffer(0)) & " 0x" & Hex(buffer(1)) & " 0x" & Hex(buffer(2))
        Debug.Print "wyh = " & wyh
    End If

End Sub

在上面的示例中，我们使用了MSComm控件来进行串口通信。在Form_Load事件中，我们打开了COM1口，并设置了波特率为9600，数据位为8，无校验位，停止位为1。在MSComm1_OnComm事件中，我们检测到了串口接收到数据的事件，然后从串口中读取了3个字节的数据，并将其存储在一个字节数组buffer中。接着，我们将这3个字节的数据转换为一个长整型数wyh，并在调试窗口中显示出来。

请注意，上面的示例仅演示了如何从串口接收3个字节的16进制字节。如果您需要接收更多字节的数据，您需要根据实际情况调整InputLen属性的值。此外，如果您需要发送数据到串口，您可以使用MSComm1.Output方法来发送数据。