Visual Basic - FAX

Hola a todos.
Alguien sabe de algún programa o control ActiveX que me permita crear o modificar desde VB6 un FAX?
Gracias

Dim objOutlook As New Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim TelNo As String
Dim n As Integer

Private Sub Command1_click()
TelNo = "Numero de Fax"
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
.To = "[Fax:" & TelNo & "]"
.Subject = "El asunto"
.Body = "En Mesaje"
.Importance = olImportanceHigh
.Attachments.Add "El Fax"
.Send
End With
Set objOutlook = Nothing