从VBA访问串口的最佳方法是什么？

Option Explicit

Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, ByRef lpBuffer As Byte, ByVal nNumberOfBytesToRead As Long, ByRef lpNumberOfBytesRead As Long, ByVal lpOverlapped As Long) As Long
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, ByRef lpBuffer As Byte, ByVal nNumberOfBytesToWrite As Long, ByRef lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Long) As Long

Public Sub WriteToSerialPort(ByVal strData As String, ByVal strPort As String)
    Dim hPort As Long
    Dim lpBuffer() As Byte
    Dim nBytesWritten As Long
    Dim i As Long
    
    ' Open the serial port
    hPort = CreateFile("\\.\COM1", GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0)
    
    ' Convert the string to a byte array
    lpBuffer() = StrConv(strData, vbFromUnicode)
    
    ' Write the byte array to the serial port
    WriteFile hPort, lpBuffer(0), UBound(lpBuffer) + 1, nBytesWritten, 0
    
    ' Close the serial port
    CloseHandle hPort
End Sub

Public Function ReadFromSerialPort(ByVal strPort As String) As String
    Dim hPort As Long
    Dim lpBuffer(1023) As Byte
    Dim nBytesRead As Long
    Dim strResult As String
    
    ' Open the serial port
    hPort = CreateFile("\\.\COM1", GENERIC_READ, 0, 0, OPEN_EXISTING, 0, 0)
    
    ' Read data from the serial port
    ReadFile hPort, lpBuffer(0), 1024, nBytesRead, 0
    
    ' Convert the byte array to a string
    strResult = StrConv(lpBuffer, vbUnicode)
    
    ' Close the serial port
    CloseHandle hPort
    
    ' Return the result
    ReadFromSerialPort = Left(strResult, nBytesRead)
End Function

Sub TestSerialPort()
    Dim strData As String
    Dim strResult As String
    
    ' Write data to the serial port
    strData = "Hello, world!"
    WriteToSerialPort strData, "COM1"
    
    ' Read data from the serial port
    strResult = ReadFromSerialPort("COM1")
    MsgBox "Data read from serial port: " & strResult
End Sub