Log exception in Global.asax (VB) : Global.asax « ASP.Net Instroduction « ASP.NET Tutorial

1. ASP.NET Tutorial
2. ASP.Net Instroduction
3. Global.asax

Imports System.Web
Imports System.Web.SessionState

Public Class Global Inherits System.Web.HttpApplication
    Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        Dim myEventLog As System.Diagnostics.EventLog
        Dim ex As Exception = Server.GetLastError()
        myEventLog = New System.Diagnostics.EventLog()
        myEventLog.Log = "Application"
        myEventLog.Source = "Default"
        myEventLog.WriteEntry(ex.ToString())
    End Sub
End Class