Dim objFaxSev As New FAXCOMLib.FaxServer()
Dim objFaxDoc As FAXCOMLib.FaxDoc
objFaxSev.Connect("fax")
Dim strFile As String = "E:\11.txt"
objFaxDoc = CType(objFaxSev.CreateDocument(strFile), FAXCOMLib.FaxDoc)
objFaxDoc.FaxNumber = "*83"
Try
Dim aaa As Integer = objFaxDoc.Send()
Catch er As Exception
MsgBox(er.ToString)
End Try