Declara este funciones...
Private Declare Sub Out Lib "Inpout32.dll" Alias "Out32" (ByVal Addr%, ByVal Bite As Byte)
Private Declare Function Inp Lib "Inpout32.dll" Alias "Inp32" (ByVal Addr%) As Byte
... y para enviar datos utiliza esta funcion
Call Out(&H888, valor) 'valor es un numero entre 0 y 255
para apagar el puerto enviar el valor 0.
H888, hace referencia al puerto paralelo y H378 al puerto de datos