求助关于fax控件的问题

我的程序在传真号码空闲的时候已经传真成功了，但请问怎么知道我传真的号码是否遇忙呢？有什么返回值的吗？代码：
    Dim objFaxSev As New FAXCOMLib.FaxServer
    Dim objFaxDoc As FAXCOMLib.FaxDoc
    Dim b As Long
    Dim strFile As String
    Dim Y As Variant
    Dim j As Integer        strFile = "C:\temp1.txt" '\'file name
        objFaxSev.Connect Winsock1.LocalHostName  '\'localhost name
        Set objFaxDoc = objFaxSev.CreateDocument(strFile)        Y = Split(Trim(sFaxNo), ",")
        For j = 0 To UBound(Y)
         objFaxDoc.FaxNumber = Trim(Y(j))
         objFaxDoc.CoverpageSubject = "AAA"
         objFaxDoc.CoverpageName = "BBB"         b = objFaxDoc.Send()
        Next