You're right I had modified one line already. So Sorry. Original VB code follows:

Status reporting for fax modem -

Private Sub FaxManJr1_Status(ByVal pStatObj As FaxManJrCtl.IfaxStatusObj)
Label1.Caption = pStatObj.CurrentStatusDesc
End Sub

And here's the other set of VB code contained in my other VB translate thread:

See what FaxMan Jr. is doing -

Private Sub FaxManJr1_Message(ByVal bsMsg As String, ByVal bNewLine As Integer)
Text1.SelText = bsMsg
If bNewLine Then Text1.SelText = vbCrLf
End Sub