Das wirst du nicht schaffen - schon gar nicht mit Visual Basic
Für sowas ist der LPT und Windows und Visual Basic einfach viel zu langsam.