Realmente no te puedo ayudar, pero menos aún si has escrito mucho per la información que das para que se te pueda ayudar es tan pobre.

Yo creo que se trata más de un problema de configuración que otra cosa. Porque aunque crees un programa con VB para enviar un datos mediante FAX te va a ocurrir lo mismo. Entiendo, que le habéis actualizado el sistema ¿No? dices que tenía un sistema viejo ¿W98/2000/Me/XP? no lo has dicho. Pues el cliente recibirá la llamada y al dejarlo en espera hasta que llegue al 100% la llamada se cortará igual. Y si no le habéis cambiado el OS, ¿Porqué no usas NET por ejemplo? Yo entiendo que se lo habéis cambiado.

Con VB6 deberás usar un TAPI(Telephony Application Programming Interface)  o ActiveX que permita una configuración diferente a la que ofrece el sistema y no corte la llamada. Si lo hay.

He buscado códigos para usar el FAX desde VB6 y no he encontrado nada. Si para conexión telefónica pero no para usar el FAX. Ni siquiera en el MSDN. En cambio si que hay para C/C++. Pero repito si le habéis actualizado el OS ¿qué pinta VB6?

La verdad es que es confuso. No se si quieres usar VB6 porque el cliente (el que envía) tiene un OS viejo, o si lo habéis actualizado a 7/8/10, y no permite el modo "no automático" y quieres crear un programa VB.NET (este subforo es para VB a secas). En tal caso si lo quieres para NET, ni me molesto en elaborar un código pues ya hay en el foro de NET un moderador que es el que se encarga de responder todo sobre NET. Supongo que en su ElektroKit tendrá algo de eso.

Aquí tienes un ejemplo de FAX con net
https://www.interfax.net/en/dev/vb/sendcharfax

Module Module1
 
    Sub Main()
        Dim username As String = "my username"
        Dim password As String = "my password"
        Dim faxNumbers As String = "+442079876543;+12125555555"
        Dim contacts As String = "Name 1;Name 2"
        Dim path1 As String = "c:\temp\1.pdf"
        Dim path2 As String = "c:\temp\1.docx"
        ' read files data
        Dim file1data() As Byte = IO.File.ReadAllBytes(path1)   '1st document
        Dim file2data() As Byte = IO.File.ReadAllBytes(path2)   '2nd document
        ' combine into a single byte array
        Dim data(file1data.Length + file2data.Length - 1) As Byte
        Array.Copy(file1data, data, file1data.Length)
        Array.Copy(file2data, 0, data, file1data.Length, file2data.Length)
        Dim fileTypes As String = IO.Path.GetExtension(path1).TrimStart("."c) & ";" & IO.Path.GetExtension(path2).TrimStart("."c)
        Dim fileSizes As String = file1data.Length.ToString & ";" & file2data.Length.ToString
 
        Dim postponeTime As DateTime = DateTime.Now.AddHours(2) ' in two hours. use any PAST time to send ASAP
        Dim retriesToPerform As Integer = 2
        Dim csid As String = "My CSID"
        Dim pageHeader As String = "To: {To} From: {From} Pages: {TotalPages}"
        Dim subject As String = "My Subject"
        Dim replyAddress As String = "myemail@mydomain.com"
        Dim pageSize As String = "A4"
        Dim pageorientation As String = "Portrait"
        Dim isHighResolution As Boolean = False 'this will speed up your transmission
        Dim isFineRendering As Boolean = False  'fine will fit more graphics, while normal (false) will fit more textual documents
 
        Dim ifws As New interfax.InterFax()
        Dim st As Long = ifws.SendfaxEx_2( _
        username, _
        password, _
        faxNumbers, _
        contacts, _
        data, _
        fileTypes, _
        fileSizes, _
        postponeTime, _
        retriesToPerform, _
        csid, _
        pageHeader, _
        "", _
        subject, _
        replyAddress, _
        pageSize, _
        pageorientation, _
        isHighResolution, _
        isFineRendering)
 
        Console.WriteLine("Status is " & st)
 
    End Sub
 
End Module

(esto usa Internet no teléfono)

https://www.interfax.net/es/dev/vb



Sending a Fax
(se necesita la librería fxscomex.dll)


Fax Service

Podrías implementar un sistema que cuando se corte siga insistiendo hasta que el cliente permita la transferencia (cuando llegue al 100%). No se, por tiempo o por número de intentos.

chau

---

Mediante vbscript en VB6

http://sandlerco.com/VBScript.htm
FaxServer object