Sub LogFile(Message As String)
    Dim LogFile As Integer
    LogFile = FreeFile
    Open App.Path & "\LogFile.Log" For Append As #LogFile
    Print #LogFile, Message
    Close #LogFile
End Sub