Поиск устройства, подключенного к COM порту

'Form1
'Добавить компонент Microsoft Comm Control.
'Скорость порта устройства известна.
'Устройство отвечает на ввод команды "VERSION".
'В Tools\Options\General\Error Trapping не должно быть установлено Break on All Errors,
'иначе при запуске из среды разработки ошибка "invalid port number"
Private Sub Command1_Click()
    For i = 1 To 16             'Перебираю возможные для VB6 номера портов
        MSComm1.CommPort = i
        Text1.SelText = "." 'Прогресс
        On Error Resume Next    'Не реагирую на ошибку
        MSComm1.PortOpen = True 'Окрываю порт
        Err.Clear               'Очищаю код ошибки
        Select Case MSComm1.PortOpen
            Case True 'Еесли порт свободен
                MSComm1.Output = "VERSION" & vbCr 'Команда в порт
                Delay (200) 'Жду ответ
                If InStr(1, Text1.Text, "SFPTotal") Then 'Ответ есть
                    devCOM = i 'Запоминаю порт
                    Text1.SelText = "SFPTotal found on COM" & i
                    Exit For 'Заканчиваю поиск, порт остаётся открыт
                End If 'Устройство не ответило
                MSComm1.PortOpen = False 'Закрываю порт
            Case MSComm1.PortOpen = False 'Порт занят или не существует
        End Select
    Next i
    If devCOM = 0 Then Text1.SelText = vbCrLf & "SFPTotal not found" 'Не нашлось
End Sub
Private Sub MSComm1_OnComm()
    Select Case MSComm1.CommEvent
        Case comEvReceive 'Принят символ
            Text1.SelText = vbCrLf & MSComm1.Input
        Case comEvSend 'Передача буфера
            Do While MSComm1.OutBufferCount > 0
                DoEvents
            Loop
    End Select
End Sub
'-----------------------------------------------------------------------------
'Модуль Public
'Функция возвращает кол-во миллисекунд прошедших со старта Windows
Public Declare Function GetTickCount Lib "kernel32" () As Long
'Программа спит ByVal миллисекунд
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public devCOM As Integer  'Номер порта устройства
'Задержка перехода на следующую строку, при этом события отрабатываются
Public Sub Delay(val As Long)
   start = GetTickCount()
   Do While GetTickCount() < start + val
      DoEvents
      Sleep 50 'Sleep снижает нагрузку на процессор примерно в 10 раз,
   Loop        'можно сравнить в диспетчере задач закомментировав.
End Sub

'Form1
'Добавить компонент Microsoft Comm Control.
'В Tools\Options\General\Error Trapping не должно быть установлено Break on All Errors,
'иначе при запуске из среды разработки ошибка "invalid port number"
Private Sub CommandFind_Click()
    Text1.Text = "": Delay (100) 'Очищаю. Если без задержки, Text1 некорректно чистится
    For i = 1 To 16             'Перебираю возможные для VB6 номера портов
        MSComm1.CommPort = i
        On Error Resume Next    'Не реагирую на ошибку
        MSComm1.PortOpen = True 'Окрываю порт
        Err.Clear               'Очищаю код ошибки
        Select Case MSComm1.PortOpen
            Case True 'Еесли порт свободен
                Text1.SelText = "COM" & i & " Found" & vbCrLf
                Combo1.AddItem ("COM" & i)
                MSComm1.PortOpen = False 'Закрываю порт
            Case False 'Порт занят или не существует
                Text1.SelText = "COM" & i & vbCrLf 'Прогресс
        End Select
    Next i
    Combo1.ListIndex = 0 'Показать первый порт в Combo
End Sub
Private Sub CommandOpen_Click()
    Text1.Text = "" 'Очищаю
    Text1.SelText = "Open " & Combo1.Text & vbCrLf 'Выбранное значение
    On Error GoTo Error
    MSComm1.CommPort = CInt(Replace(Combo1.Text, "COM", "")) 'Назначаю порт
    MSComm1.Settings = 9600 'Скорость сканера известна
    MSComm1.PortOpen = True 'Открываю порт
Error:
End Sub
Private Sub MSComm1_OnComm()
    Select Case MSComm1.CommEvent
        Case comEvReceive 'Принят символ
            Text1.SelText = MSComm1.Input
        Case comEvSend 'Передача буфера
            Do While MSComm1.OutBufferCount > 0
                DoEvents
            Loop
    End Select
End Sub
---------------------------------------------------------
'Модуль Public
'Функция возвращает кол-во миллисекунд прошедших со старта Windows
Public Declare Function GetTickCount Lib "kernel32" () As Long
'Программа спит ByVal миллисекунд
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public devCOM As Integer  'Номер порта устройства
'Задержка перехода на следующую строку, при этом события отрабатываются
Public Sub Delay(val As Long)
   start = GetTickCount()
   Do While GetTickCount() < start + val
      DoEvents
      Sleep 50 'Sleep снижает нагрузку на процессор примерно в 10 раз,
   Loop        'можно сравнить в диспетчере задач закомментировав.
End Sub