Public Class Global : Inherits Web.HttpApplication
...
	Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
		Try
			Me.ErrorToLog(Me.Request.RawUrl, Me.Server.GetLastError())
		Catch

		End Try
	End Sub


	Public Sub ErrorToLog(ByVal source As String, ByVal err As Exception)
		Dim EventLog AS New System.Diagnostics.EventLog
		EventLog.Log = "Application"
		EventLog.Source = ".NET Runtime"

		Dim Message As New StringBuilder

		Message.AppendFormat(vbCrLf & vbCrLf & "URI: {0}" & vbCrLf & vbCrLf, source)

		While Not err Is Nothing
			Message.AppendFormat("{0}: ""{1}""" & vbCrLf & vbCrLf, err.GetType().Name, err.ToString())
			err = err.InnerException
		End While

		EventLog.WriteEntry(Message.ToString(), Diagnostics.EventLogEntryType.Error)
	End Sub
...

End Class