Как правильно настроить СОМ-порт?

Option Explicit
Type DCB
        DCBlength As Long
        BaudRate As Long
        fBinary As Long
        fParity As Long
        fOutxCtsFlow As Long
        fOutxDsrFlow As Long
        fDtrControl As Long
        fDsrSensitivity As Long
        fTXContinueOnXoff As Long
        fOutX As Long
        fInX As Long
        fErrorChar As Long
        fNull As Long
        fRtsControl As Long
        fAbortOnError As Long
        fDummy2 As Long
        wReserved As Integer
        XonLim As Integer
        XoffLim As Integer
        ByteSize As Byte
        Parity As Byte
        StopBits As Byte
        XonChar As Byte
        XoffChar As Byte
        ErrorChar As Byte
        EofChar As Byte
        EvtChar As Byte
End Type
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Declare Function GetModuleHandleW Lib "kernel32" (ByVal lpModuleName As Long) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, ByVal lpNumberOfBytesRead As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Long, lpBuffer As Any, ByVal nSize As Long, ByVal lpNumberOfBytesWritten As Long) As Long
Declare Function BuildCommDCB Lib "kernel32" Alias "BuildCommDCBA" (ByVal lpDef As String, lpDCB As DCB) As Long
 
Private lpLibFnc As Long, baOrig(5) As Byte
 
Sub TestHookBuildCommВСB()
    Dim Ret&, Comsettings As String, BarDCB As DCB
    
    Comsettings = "9600,n,8,1"
    InstallTramp "kernel32", "BuildCommDCBA", AddressOf Hooked_BuildCommDCB
    
    Ret = BuildCommDCB(Comsettings, BarDCB)
    Debug.Print BarDCB.BaudRate
End Sub
 
Private Sub InstallTramp(sLib$, sFnc$, ByVal lpVbFnc As LongPtr)
    Dim baTrmp(5) As Byte
    lpLibFnc = GetProcAddress(GetModuleHandleW(StrPtr(sLib)), sFnc) ' Get the address of the "DialogBoxParamA" function
    If lpLibFnc Then
        ReadProcessMemory -1, lpLibFnc, baOrig(0), 6, 0             ' Save the first 6 bytes (the size of the trampoline) to be restored later
        baTrmp(0) = &H68                                            ' push
        CopyMemory baTrmp(1), lpVbFnc, 4
        baTrmp(5) = &HC3                                            ' ret
        WriteProcessMemory -1, lpLibFnc, baTrmp(0), 6, 0            ' Now the InputBox function will call our custom "HookedDialogBoxParamA" function instead
    End If
End Sub
 
Private Function Hooked_BuildCommDCB(ByVal pSettings As Long, BarDCB As DCB) As Long
    Dim Comsettings As String
    WriteProcessMemory -1, lpLibFnc, baOrig(0), 6, 0    'убираем трамплин
    
    CopyMemory ByVal VarPtr(Comsettings), pSettings, 4
    Debug.Print "Com settings: "; StrConv(Comsettings, vbUnicode)
    CopyMemory ByVal VarPtr(Comsettings), 0&, 4
    BarDCB.BaudRate = 123
End Function