Public Function IsIDE() As BooleanContoh penggunaan kode di atas:
On Error GoTo ErrHandler
Debug.Print 1 / 0
ErrHandler:
IsIDE = Err
End Function
Private Sub Form_Load()
If IsIDE Then
MsgBox "Jalankan aplikasi ini dari file .EXE", vbInformation, "Message"
End If
End Sub