BlackZeroX Te comparto lo que tengo armado hoy dia depues puedo actualizarlo.
primero descargate la inpout.dll si la buscas en google la encontras por todos lados.
despues en el proyecto pones un modulo y le copias este codigo.
Option Explicit
Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)
una ves echo esto desde un formulario le asignas los valores que quieras al puerto.
con esta instruccion
El CERO es el valor que le asignas al puerto puede ser de 0 a 255.
por las dudas fijate en el administrador de dispositivos si la direccion del puerto esta correcta ya que dependiendo de la configuracion de tu pc podria ser otra.
la direccion del puerto es &H378 y la de entrada es &H379 por lo general es asi pero confirmalo si queres leer el puerto pones algo como esto.
Text3.Text = Str(Inp(Val(&H379)))
Con ese codigo le asignas al text3 el valor actual del puerto.
despues tengo una interface de potencia con la cual controlo las luces que si quieren comparto el circuito.