Известно, что при подключении модуля BlueTooth и обнаружении системой внешнего модуля она выдаёт на "нужды" беспроводного соединения последовательный COM порт (виртуальный).
Самому VB без разницы с каким портом работать. Поэтому можно смело использовать MSComm.
В качестве внешнего модуля BlueTooth у меня используетмя модуль OR-BTM (с USART).
Включаю модули. Настраиваю выделенный мне порт COM6. Запускаю прогу на VB:
--------
Option Explicit

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 10
MSComm1.CommPort = 6
MSComm1.Settings = "9600,N,8,1"
MSComm1.InBufferSize = 1
MSComm1.InputLen = 1
MSComm1.PortOpen = True
End Sub

Private Sub MSComm1_OnComm()
Dim dat As String
Timer1.Enabled = False
MsgBox "!"
End Sub

Private Sub Timer1_Timer()
MSComm1.Output = Chr(10)
End Sub
--------

При приёме пакета модуль OR-BTM отправляет его обратно.
Так задумано, но не получается.
Модуль OR-BTM проверядся в Hyper Terminal. Задержка между отправкой и приёмом = 3 сек., что непростительно много.
Я меня есть опыт работы с портами, с RS-232 и т.п. Скорости передачи были около 9кбод и VB никогда не подводил.
Что делать? В чём может быть проблема?

.

Немного переписал прогу...