调试日志记录 VB.net

问：

我正在尝试为我的应用程序创建调试日志，我想将所有内容记录到日志中。

• %TimeStamp% - 已加载的主窗体
• %TimeStamp% - 加载的设置
• %TimeStamp% - 进入就绪状态 等。

我有一个函数，可以创建一个文件夹来存放调试日志，并相应地创建调试文件：

Dim DebugFile As String = String.Format(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "\App\Debug_{0}.txt", DateTime.Today.ToString("dd-MMM-yyyy"))

    Public Sub Debug_File_Check()
        ' Set a variable to the My Documents path.
        If (Not System.IO.Directory.Exists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "\App\")) Then
            System.IO.Directory.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) + "\App\")
        End If
    End Sub

以及一个打开调试文件并向其写入一行的函数：

Public Sub Debug()
    Using writer As New StreamWriter(DebugFile, True)
        If File.Exists(DebugFile) Then
            writer.WriteLine(%DEBUG MESSAEGE + " Occured at-- " & DateTime.Now)
        Else
            writer.WriteLine("Start Error Log for today")
        End If
    End Using
End Sub

我的问题是，我怎样才能从以下东西传递信息：

Private Sub FrmMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Debug_File_Check()
    Debug("The form has loaded")
End Sub

它在一行上将调试行写入我的调试.txt文件的位置？

我以前从未处理过调试日志记录，所以甚至不确定我是否在写入轨道上。