В этот раз спрашивать ничего не буду.
Всегда когда работал с COM портом использовал разные коды с подключением DLL и т.д. Вспомнил что в DOS можно было копировать как на LPT так и на COMn порт простой командой COPY. Возможно для большинства это уже далеко не новость, но все-таки опишу способ которым я пользуюсь теперь работая с COM портом
например у нас подключено к COM3 термопринтер для друка чеков:
Open "COM3" For binary as #1
s="Этот текст будет распечатан" & vbcrlf
Put #1,1,s
close #1

Прощупать свободный порт можно таким же образом в отжельной функции с использованием on error...
Также достаточно периодично считывать GET в отдельной функии чтоб узнать сосотояние (ОК/ERR)
Для чекового принтера этого оказалось достаточно чтоб работать

Этот способ будет полезен если вам не столь важно принимать значение с COM порта
Спасибо за внимание