Tratamento de erro ao inviar para a porta Com

Peço auxilio aos amigos do fórum para resolver mais uma questão.
Uso o seguinte código para enviar impressão de cupom não fiscal pra a porta seria.

Dim PortImp As String
Open "COM4:" For Output As #1

Caso a impressora não esteja ligada ou a porta não foi encontrada da o seguinte erro:
Erro em tempo de execução ‘52’:
Nome ou número de arquivo incorreto.

Como devo fazer para dar uma msg de erro que a Impressora esta desligada, confira.

Sou grato pela atenção de todos.

Try something like below:

Código:

On Error GoTo TErro

Dim PortImp As String
Open "COM4:" For Output As #1

TErro:
    If Err.Number = 52 Then
        MsgBox "Erro de impressão. A impressora parece estar desligada ou desconectada.", vbCritical, "Erro de impressão"
    End If

Saudaçoes Criquio.

Ok com as portas COM? deu certinho, mas com a porta LPT1 não funciona, vc poder me dar uma luz na porta LPT1 como teria que ser.

Sou grato pela sua atenção.

Apresenta mensagem com outro número de de erro? Se sim, basta incluir esse número

If Err.Number = 52 Or Err.Number = OutroNumero Then

Saudaçoes Criquio.

Ficou desta maneira mas não deu certo, em que esta errado??
Sou garto pela sua atenção.

On Error GoTo TErro
Dim PortImp As String
LTP1: '(obs. Com e sem esta linha não deu certo)
Open "LPT1:" For Output Access Write As #1
TErro:
If err.Number = 52 Or err.Number = OutroNumero Then
MsgBox "Erro de impressão. A impressora parece estar desligada ou desconectada.", vbCritical, " Erro na impressora."
End If

No lugar de OutroNumero você deve colocar o outro número, caso apareça outro número de erro na mensagem.

Só funcionou com as portas COM, com a porta LPT1 mesmo com a impressora desligada não da erro algum ao clicar no botão manda a impressão normalmente.

Desta maneira

On Error GoTo TErro
Dim PortImp As String
LTP1:
Open "LPT1:" For Output Access Write As #1
TErro:
If err.Number = 52 Or err.Number
MsgBox "Erro de impressão. A impressora parece estar desligada ou desconectada.", vbCritical, " Erro na impressora Porta LPT1:"
End If

Sou muito grato pela sua atenção.

Boa noite ...
tente usar este código para verificar a porta antes de imprimir
não coloco aqui o autor pois desconheço...

'With Sleep function, system uses only minimal CPU-usage
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'With Inp32, we can read ports fast with visual basic
Public Declare Function Inp Lib "inpout32.dll" _
Alias "Inp32" (ByVal PortAddress As Integer) As Integer
'We could use Out32 to write to ports, but we don't need it
'Public Declare Sub Out Lib "inpout32.dll" _
Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

Public DataLeds As Integer 'Valor inteiro para armazenar porta de entrada
Public UserCancel As Boolean 'usado para finalizar loops
Public LPTport As Integer 'Endereço da Porta usada
Public ByteExt As Integer 'Loop variable
Public SleepValue As Integer 'Interval for updating 'leds'

Function ImpressoraON() As Boolean
'LPTport = 632 ''Set Porta (LPT2)
LPTport = 888 'Set Porta (LPT1)
DataLeds = Inp(LPTport) 'Saída de dados 0-7

DataLeds = Inp(LPTport + 1) 'LPT port Feedbacks bytes 3 to 7
'Error causado pela impressora (tipo falta de papel/Cabo mal conectado,Desligada,etc)
'If DataLeds = 8 Or DataLeds = 128 Then
If DataLeds = 223 Then 'está normal
ImpressoraON = True
Else
ImpressoraON = False
End If
End Function

'Eu uso asim:

' Verifica Impressora
'If Not ImpressoraON Then
'msg = "Verifique a impressora" & Chr(13) _
& "- Veja se está ligada" & Chr(13) & _
"- Verifique se tem papel" & Chr(13) & _
"- Verifique o cabo de conexão"
'MsgBox msg, 48, "Erro na Impressora"
'Exit Sub
'End If

vais precisar da dll que está em anexo

Tentei fazer funcionar por aqui e não dei conta, não tenho muito conhecimento em VBA, sou muito grato pela sua atenção e desculpe a demora para responder.
Grande abraço a todos.