Private Sub Command_OpenCom_Click()

If Command_OpenCom.Caption = "COM öffnen" Then
  'Serielle Schnittstelle öffnen
  If OPENCOM(Combo_Com.Text & ":" & Combo_Baud.Text & ",n,8,1") = 0 Then
    MsgBox ("Fehler, kann " & Combo_Com.Text & " nicht öffnen")
  Else
    SDA 1 'I2C-Interface testen
    If Not SDA_in Then
      MsgBox ("Keine Antwort vom I2C-Seriell Interface")
    Else
      Command_OpenCom.Caption = "COM schließen"
      'I2C-Bus initialisieren
      i2cInit
      i2cStart
      i2cStop
    End If
  End If
Else
  CLOSECOM 'Serielle Schnittstelle schließen
  Command_OpenCom.Caption = "COM öffnen"
End If

End Sub

Private Sub Command_Schreiben_Click()
On Error GoTo ErrorHandler

If TextBox_SWert.Text > 255 Then
  MsgBox ("Im Feld WERT nur Zahlen <= 255 erlaubt")
Else
  i2cStart
  If i2cSlave(Combo_SAdresse.Text) Then 'Bus-Adresse des PCF 8574 schreiben
    If CheckBox_inv.Value = True Then
      i2cOut 255 - TextBox_SWert.Text   'invertierten Wert ausgeben
    Else
      i2cOut TextBox_SWert.Text 'Ausgabewert zum Portbaustein schreiben
    End If
  End If
  i2cStop
End If

ErrorHandler:
  Select Case Err.Number 'Fehlernummer auswerten.
  Case 0 'ok
  Case 13
    MsgBox ("Im Feld WERT nur Zahlen erlaubt")
    TextBox_SWert.Text = ""
  Case Else
    MsgBox ("Fehler " & Err.Number)
End Select

End Sub