On Error GoTo WebServiceError
    Dim ws As New MSSOAPLib.SoapClient
    ws.mssoapinit "UltraMax.wsdl"
    WebService.LogOn "InvalidUserName", "InvalidPassword"
    ...
WebServiceError:
    MsgBox Err.Description & vbCr & ws.detail
    ...

Example 1: Catching errors.