If Len(Command) Then
    Open "notes.txt" For Append As #1
    Print #1, Date, Time
    Print #1, Chr(9); Command
    Close
Else
    If Open("notes.txt" For Input As #1) = 0 Then
        Dim As String lin
        Print "Contenido del archivo:"
        Do While Not Eof(1)
            Line Input #1, lin
            Print lin
        Loop
    Else
        Open "notes.txt" For Output As #1
        Print "Archivo 'NOTES.TXT' creado"
    End If
End If
Close #1
Sleep