Dim oSF As New interfax.InterFax() 'Reference to the Interfax Web Service Object
Dim lngResult As Long
Dim b() As Byte 'holds binary data read from a Word file
'
' Invoke the Sendfax method
'
lngResult = oSF.Sendfax("MyUsername", "MyPassword", "+1-212-3456789" , b, "DOC")
'
' Check the status
'
If lngResult > 0 Then
 
    '
    ' A positive value means the message was successfully queued for transmission.
    ' The Interfax transaction ID is returned.
    '
    MessageBox ("Fax submitted properly. lngResult is: " & lngResult)
 
Else
 
    '
    ' A negative value means an error occured.
    ' See documentation for error codes description.
    '
    MessageBox ("error submitting fax. Error=" & lngResult)
 
End If