Dim KeUSB As New MSComm

Sub ComPortSearch()
On Error GoTo Err_ComPortSearch

    PortNum = 1
    
'Ищем порт
PortSearch:
    If PortNum > 50 Then
        MsgBox "Блок управления не найден. Проверьте подключение USB кабеля.", , "Test"
        DoCmd.Quit
        Exit Sub
    End If
' начиная с этой строки бьет ошибку на каждой строке
' KeUSB - вероятно в этот момент не существует
    KeUSB.CommPort = PortNum
    KeUSB.Settings = "9600,N,8,1"
    KeUSB.Handshaking = comNone
    KeUSB.InputLen = 0
    KeUSB.InBufferSize = 40
    KeUSB.OutBufferSize = 40
    KeUSB.RThreshold = 0
'Открываем порт
    KeUSB.PortOpen = True
'Проверяем контроллер
    KeUSB.Output = "$KE" & Chr(13) & Chr(10)
    Sleep (5)
    strDa = KeUSB.Input
    strDa = Left(strDa, 3)

    If strDa = "#OK" Then Exit Sub          'Номер порта в переменной PortNum
 
 'Закрываем порт
    KeUSB.PortOpen = False
              
    PortNum = PortNum + 1
    GoTo PortSearch
     
Exit_ComPortSearch:
    Exit Sub

Err_ComPortSearch:
    Resume Next

End Sub