System VB.Net by API

Option Strict On
Public Module ApplicationLog
   Public Sub Main()
      Dim logFile As String = My.Application.Log.DefaultFileLogWriter.FullLogFileName
      Console.WriteLine("Location of Application Log File: {0}   {1}", vbCrLf, logFile)
   End Sub
End Module