Enviar datos (imprimir) al puerto COM1

[Uno +]

Tengo una secuencia que imprime en el puerto indicado. Con el puerto LPT1 funciona perfectamente. Con el puerto serie no.
Después de imprimir hago una llamada a este procedimiento para abrir el cajón portamonedas.

Sub wp_AbrirCajon (ByVal stPuerto As String, ByVal stCadenaTmp As String)
On Error GoTo wp_AbrirCajon_Err

Dim intFichero As Integer
Dim strCadenaApertura As String
Dim i As Integer

intFichero = FreeFile
If stCadenaTmp = "" Then
strCadenaApertura = Chr$(27) & Chr$(112) & Chr$(0) & Chr$(100) & Chr$(250)
Else
For i = 1 To wp_Palabra_Contar(stCadenaTmp)
strCadenaApertura = strCadenaApertura & Chr$(wp_Palabra_Get(stCadenaTmp, i))
Next i
End If
Open stPuerto For Output As #intFichero
Print #intFichero, strCadenaApertura;

wp_AbrirCajon_Sal:
On Error Resume Next
Close #intFichero
Exit Sub

wp_AbrirCajon_Err:
Beep
MsgBox Err.Description & ". No se ha podido abrir el cajón.", 64, "Abrir cajón"
Resume wp_AbrirCajon_Sal
End Sub


Si la impresora está conectada a LPT1 funciona perfectamente, pero si está conectada a COM1, no va.

Estoy aburrido de mirar en la web y no he encontrado nada. ¿Alguna idea? Cualquier idea es bienvenida. Gracias.