Private Declare Sub OutputDebugString Lib "kernel32" Alias "OutputDebugStringA" (ByVal lpOutputString As String) Sub test() Dim strDebug As String strDebug = "Message" OutputDebugString aa End Sub
http://debugview.en.softonic.com/
http://debugview.en.softonic.com/download