Pass reference of COM port to function call

[vbauser00]

How would I pass a reference to an open COM port to a function call?

I'm using this syntax:

Open "COM1:115200,N,8,1" For Binary Access Write As #1
at the beginning of my subroutine.

With the "#1" identifier still open I would like to pass to a function.

I prefer not to close the COM port with "Close #1" to open back up inside a function call as a passing parameter.

Thank you.

 

[GWteB]

Perhaps something like ...

Sub OpenCom1()

    Dim COM1Handle As Long

    COM1Handle = FreeFile
    Open "COM1:115200,N,8,1" For Binary Access Write As #COM1Handle

        WriteCom1 COM1Handle                 ' <<<<< invoke another procedure and passing an argument
    
    Close #COM1Handle
End Sub


Sub WriteCom1(ByVal argComHandle As Long)    '  <<<< procedure to be invoked

    Dim buffer As Byte

    Put #argComHandle, , buffer

End Sub

 

[vbauser00]

Thank you for your help.

Initially the commands I was writing to the COM port wasn't working inside a function call when I opened/closed the port outside of the function call. That is the reason I submitted a question to this forum.
Yesterday, it appeared to be working. Perhaps something else was in my code was incorrect initially.

If I see any issues then I'll give your suggestion a try. Again - thank you for your reply.

 

[GWteB]

You are welcome & thanks for the follow-up.