Foro de programacion

Estoy intentando enviar un fax con Zetafax. Tengo instalado el API Toolkit y utilizo el siguiente código:

'<------------------------- Código ------------------------------>
Private Sub cmdSendFax_Click()
Dim oNewMsg As NewMessage 'Objeto Nuevo Mensaje de Zetafax
Dim oZfAPI As ZfAPI 'Objeto de referencia al API de Zetafax
Dim oUser As UserSession 'Objeto Usuario de Zetafax

'Nos logeamos
Set oUser = oZfAPI.Logon("ADMIN", False)
'Creamos el Mensaje
Set oNewMsg = oUser.CreateNewMsg
'Añadimos la dirección, el texto y lo enviamos
With oNewMsg
'Añadimos el Destinatario, Empresa destinataria y Número de teléfono
.Recipients.AddFaxRecipient "Jose", "UNOZERO", txtTelef
'Añadimos el Mensaje
.Text = txtFaxBody
'Enviamos
.Send
End With
End Sub
'<--------------------------- Fin del Código -------------------->

El problema radica en que, cuando va a hacer el login dice:

"Variable de tipo object o bloque With no está establecido"