PrivateSubCommandButton1_Click()' Generate a FAX based on the ID.GenerateForm ListBox1.List(ListBox1.ListIndex) UserForm1.HideEndSubPrivateSubUserForm_Initialize()DimoSOAPClientAsObject' Create a SOAP client.SetoSOAPClient = CreateObject("MSSOAP.SoapClient")' Initialize ...