Call ErrorDescription(Err.Description, "Xml Integration")

Subroutines
Sub ErrorDescription(ByVal Erordesc, ByVal ErSource)
        Dim ScriptObject = New Scripting.FileSystemObject
        Dim lstrErrorLogFileName As String
        Dim errorLogFile = New Scripting.FileSystemObject
        lstrErrorLogFileName = "ErrorLog.txt"
        If ScriptObject.FileExists(lstrErrorLogFileName) Then
            errorLogFile = ScriptObject.OpenTextFile(lstrErrorLogFileName, 8)
        Else
            errorLogFile = ScriptObject.CreateTextFile(lstrErrorLogFileName)
        End If

        errorLogFile.WriteLine("----------------------------------------------")
        errorLogFile.WriteLine("Date: " & Now())
        errorLogFile.WriteLine("Error No: " & Err.Number)
        errorLogFile.WriteLine("Error Description: " & Erordesc)
        errorLogFile.WriteLine("Error Source: " & ErSource)

        errorLogFile.Close()
        Err.Clear()
        End
    End Sub