Servus zusammen!

Ich darf/soll/muss für unsere Applikation eine Kassenschublade öffnen - das ganze in vb.net
Korrekterweise muss ich sagen ich soll die bestehende Applikation von VB6 auf .NET umziehen.

Der bisherige Code zum Öffnen der Schublade sieht so aus:

Private Sub OeffneKassenschublade()
Dim pr As Integer
 
On Error GoTo myError
If UseKassenSchub = False Then Exit Sub
 
pr = FreeFile
Open lptPort For Output As pr 'Wobei hier lptPort wirklich ganz doof 'LPT1:' lautet '
Write #pr, HexSeq
Close #pr
Exit Sub
 
myError:
MsgBox "Fehler Nr. " & CStr(Err.Number) & vbCrLf & Err.Description, vbCritical, "Fehler beim Öffnen der Kasse"
 
End Sub

Meine versuchte Umstellung sieht so aus:

pr = FreeFile()
Microsoft.VisualBasic.FileOpen(pr, "LPT1:", OpenMode.Output)
Write(pr, sequenz))
Microsoft.VisualBasic.FileClose(pr)

Dabei bekomme ich jedoch den Fehler:
FileStream öffnet keine Win32-Geräte, z.B. Datenträgerpartitionen oder Bandlaufwerke. "\.\" darf im Pfad nicht verwendet werden.

Wie mach ich es denn richtig??