Sub LogFile(Message As String)
    Dim LogFile As Integer
    LogFile = FreeFile
    Open "C:\Log\AllData.Log" For Append As #LogFile
    Print #LogFile, Message
    Close #LogFile
End Sub