Copie el ejemplo que dice ahi:
Private Declare Sub SetPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Declare Sub ClrPortBit Lib "IO.DLL" (ByVal Port As Integer, ByVal Bit As Byte)
Private Sub Form_Load ()
SetPortBit &H378, 0
MsgBox "Presiona Aceptar para cambiar el estado de nuevo a 0"
ClrPortBit &H378, 0
End Sub
La linea resaltada, es la que me pega error