Selecting fax body format is not working

I am sending a fax using VB6 on win7
if the  .body = "myfile.txt" it works (text file)
any other format are not working
e.g.
if the  .body = "myfile.doc" it is not working
if the  .body = "myfile.html" it s not working
also is there a way to take body from a variable or a text box? because I am injecting names in each send

The followin is my code:-

        Dim objFaxDocument As New FAXCOMEXLib.FaxDocument
        Dim objFaxServer As New FAXCOMEXLib.FaxServer
        Dim objSender As FAXCOMEXLib.FaxSender

        On Error GoTo Error_Handler

        objFaxServer.Connect ("")

        objFaxDocument.Body = "C:\Sal_Jas\Tel_Win\Faxes\Body.txt"
        'objFaxDocument.Body = "C:\Sal_Jas\Tel_Win\Faxes\word2007.doc"
        'objFaxDocument.Body = "C:\Sal_Jas\Tel_Win\Faxes\word1997-2003.doc"
        'objFaxDocument.Body = "C:\Sal_Jas\Tel_Win\Faxes\111.html"

        objFaxDocument.DocumentName = "My First Fax"

        objFaxDocument.Priority = FAXCOMEXLib.FAX_PRIORITY_TYPE_ENUM.fptHIGH

        objFaxDocument.Recipients.Add ("9,22467713")

        objFaxDocument.AttachFaxToReceipt = True

        objFaxDocument.CoverPageType = FAXCOMEXLib.FAX_COVERPAGE_TYPE_ENUM.fcptSERVER
        objFaxDocument.CoverPage = "generic"
        objFaxDocument.Note = "Here is the info you requested"
        objFaxDocument.ReceiptAddress = "someone@example.com"
        objFaxDocument.ScheduleType = FAXCOMEXLib.FAX_SCHEDULE_TYPE_ENUM.fstSPECIFIC_TIME
        objFaxDocument.ScheduleTime = CDate("4:35:47 PM")
        objFaxDocument.Subject = "Today's fax"
        objFaxDocument.sender.Title = "Mr."
        objFaxDocument.sender.Name = "Bob"
        objFaxDocument.sender.City = "Cleveland Heights"
        objFaxDocument.sender.State = "Ohio"
        objFaxDocument.sender.Company = "Microsoft"
        objFaxDocument.sender.Country = "USA"
        objFaxDocument.sender.Email = "someone@microsoft.com"
        objFaxDocument.sender.FaxNumber = "12165555554"
        objFaxDocument.sender.HomePhone = "12165555555"
        objFaxDocument.sender.OfficeLocation = "Downtown"
        objFaxDocument.sender.OfficePhone = "12165555553"
        objFaxDocument.sender.StreetAddress = "123 Main Street"
        objFaxDocument.sender.Tsid = "Office fax machine"
        objFaxDocument.sender.ZipCode = "44118"
        objFaxDocument.sender.BillingCode = "23A54"
        objFaxDocument.sender.Department = "Accts Payable"
        objFaxDocument.sender.SaveDefaultSender
        JobID = objFaxDocument.ConnectedSubmit(objFaxServer)

        MsgBox ("The Job ID is :" & JobID(0))

        objFaxServer.Disconnect

        Exit Sub

Error_Handler:
        MsgBox ("Error number: " & Hex(Err.Number) & ", " & Err.Description)