Find when a fax has completed using the FaxServer API using vb

[Hotwheels]

I have the code below working in that it sends out a fax, but
I need to know when the fax has completed.

Dim oFaxServer As FaxServer
Dim oFaxDoc As New FaxDoc

Set oFaxServer = CreateObject("FaxServer.FaxServer")
Call oFaxServer.Connect("relevant-57nrsr")
Set oFaxDoc = oFaxServer.CreateDocument("c:\faxtest.txt")
oFaxDoc.FaxNumber = "87812504099"
oFaxDoc.RecipientName = "Mikey"
oFaxDoc.Send
oFaxServer.Disconnect
Set oFaxDoc = Nothing
Set oFaxServer = Nothing