Intendi:

Private Sub Form_Load()
Open "LPT1" For Binary As #1
Get #1
Close #1
End Sub

???