einen anderen Weg führt über die WindowsAPI, die diesen berühmt berüchtigten weißen Kasten mit schwarzer Schrift ausgibt.

Das ist natürlich keine schöne, elegante und saubere Lösung, aber zum Ausprobieren ganz lustig. Aber vorsicht: Dein Programm sowie die Entwicklungsumgebung werden sofort beendet! Daher vor dem Start einmal abspeichern, sonst hast Du einen Datenverlust!

Private Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" (ByVal uAction As Long, ByVal lpMessageText As String)

Public Sub Crash()
    FatalAppExit 0, "This program just crashed ..."
End Sub

Beachte die Warnung, VB wird mitbeendet. Speichern nicht vergessen!!!