Работа с портами устройств

'************************************************
'------------------Переменные--------------------
Dim I As Integer       ' Переменная для инкремента
'************************************************
'------------------Объявление формы--------------
Private Sub Form_Load()
   MSComm1.CommPort = 1 ' Покакому порту перед-ся данные
   MSComm1.Settings = "9600,n,8,1" ' Скорость в бодах , передачата данных
   MSComm1.PortOpen = True ' Порт открыт
End Sub
'************************************************
'-------------------------------------------------------------
Private Sub Command1_Click()
I = I + 1
If I >= 255 Then
     I = 255
End If
Text1.Text = I ' Выводим на табло значение переменной
    On Error Resume Next 'Error handler
    If MSComm1.PortOpen = False Then ' Проверяем открыт последовательный порт если ложь , то
       MSComm1.PortOpen = True ' Открыть последовательный порт
    End If
    If Err Then MsgBox Error$, 48 ' Если ошибка то вывести ошибку на табло
    MSComm1.Output = "I" + Chr(13)  ' Передать переменную в порт и сделать перевод коретки
End Sub
'************************************************

"I"

Dim I As Integer       ' Переменная для инкремента

MSComm1.Output = Str(I)+ Chr(13)  ' Передать переменную в порт и сделать перевод коретки