MsgBox überschreiben

Public Function MsgBox(strText As String, _
Optional intSymbol As VbMsgBoxStyle= vbOKOnly, _
Optional strTitel As String = "Anwendung") As VbMsgBoxResult

If Left(strText, 6) = "Fehler" And IsMissing(strTitel) Then
MsgBox = VBA.MsgBox(strText, intSymbol, strTitel & " - Fehlermitteilung")
Else
MsgBox = VBA.MsgBox(strText, intSymbol, strTitel)
End If
End Function

Hinweise:
Den Standardwert des optionalen Arguments strTitel (hier "Anwendung") passend ersetzen.
Wenn der Text mit dem Wort "Fehler" beginnt, erscheint ein entsprechender Titelleistentext (Falls keiner übergeben wurde).
Beachte: Mit VBA.MsgBox(... wird auf die originale MsgBox-Funktion zugegriffen.

EventLog - Ereignisprotokoll

In *.vb:

''' <summary>
''' Gibt Meldungen in die Ereignisanzeige (Anwendung) aus
''' </summary>
''' <param name="message">Die Nachricht</param>
''' <param name="type ">optionaler Parameter</param>
Private Sub WriteEventLog(ByVal message As String, Optional ByVal type As EventLogEntryType = EventLogEntryType.Information)
Try
' Create an EventLog instance and assign its source.
Dim myLog As New EventLog()
myLog.Source = "beliebig"
' Write an informational entry to the event log.
myLog.WriteEntry(message, type)
Catch ex As Exception
Exit Try
End Try
End Sub

Ergänzung:
Das Event Log ist in sog. Logs (Anwendung, System?) und Sources (Anwendungen) aufgeteilt. Während das generelle Schreiben in ein Event Log in ASP.NET generell erlaubt ist, werden für das Anlegen der Source administrative Rechte benötigt.

Folgender Code registriert eine Event Source (von einem Administrator ausführen):

EventLog.CreateEventSource("irgendwas", "meineAnwendung");

Danach können (von jedermann) Einträge geschrieben werden:

EventLog.WriteEntry("freiwaehlbar", "Mitteilung");

AJAX 1.0-enabled ASP.NET 2.0 program - Runtime Error