Visual Basic.NET - Impresora termica

Hola..
Resulta que tengo el siguiente codigo para imprimir en una impresora termica, pero no hay caso, me sale error en el puerto que estoy usando.. " FileOpen(Fichero, "COM1", OpenMode.Output)"

este es el codigo..

Dim Fichero As Integer
Fichero = FreeFile
FileOpen(Fichero, "COM1", OpenMode.Output)
PrintLine(Fichero, "******** GRACIAS POR SU VISITA ********")
PrintLine(Fichero, "---------------------------------------")
PrintLine(Fichero, "TIENDA PRUEBA")
PrintLine(Fichero, "Carmelo nº15")
PrintLine(Fichero, "48100 Mungia - Bizkaia")
PrintLine(Fichero, "Tlfs: 77 777 77 77")
PrintLine(Fichero, "CIF: 11111111")
PrintLine(Fichero, Chr(&H1Bs) & Chr(&H64s) & Chr(&H4s)) 'linea en blanco
PrintLine(Fichero, TAB, Chr(29) & Chr(86) & "0") 'cortar papel
FileClose(Fichero)

Ayuda porfa..