Sub Beispiel()

  Dim Wert, Rück, PortAddress As Integer

  PortAddress = &H3BC

  ‘1 auf (Daten-)Port schreiben

  Rück = PortOut (PortAddress, 1)

  ‘vom (Status-)Port lesen

  Wert = PortIn (PortAddress + 1)

End Sub