Tu peux chercher inpout32.dll, je l'avais utilisé en VB6 sous XP pour cet usage.
Un bout qui concernait les déclarations:
Attribute VB_Name = "Module1"
' Declarations
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)
Ne m'en demande pas plus, c'était il y a assez longtemps.
Le problème avec VB6 c'est le passage à 64 bits qui n'est pas supporté.