Const Satisfacción = "Se ecribir en el archivo correctamente"
Const Insatisfaccion = "No se a escrito nada por que no hay nada que escribir, o hay un error en el acceso del archivop "
Dim NumeroArchivo           As Integer
 
Private Sub Form_Load()
Dim Cabecera                As String
Dim Ruta                    As String
Dim ContinuarLog            As Boolean ' Esta variable es solo para que entiendas la función Escribir.
 
    Ruta = "c:\log.txt"
    NumeroArchivo = FreeFile
    '   //  Se sobre escribe el Log Anterior a este?
    ContinuarLog = True '   //  El true significa que se seguira desde el ultimo byte,
                        '   //  Si se póne False, va ir reemplzando desde el primer byte
    Open Ruta For Binary Access Write As #Archivo
    '   //  Comprobamos el peso del log
    If LOF(NumeroArchivo) > 0 And ContinuarLog Then
        Cabecera = vbCrLf & vbCrLf
    End If
    Cabecera = Cabecera & "Inicio de Archivo Log" & vbCrLf & _
                    vbTab & "Iniciado el Dia: " & Date & vbCrLf & _
                    vbTab & "Hora de Inicio: " & Time & vbCrLf & _
                    vbCrLf & _
                    "--------Inicio del Log----->" & vbCrLf & vbCrLf
    If Escribir(NumeroArchivo, Cabecera, ContinuarLog) Then
        Debug.Print Satisfacción
    Else
        Debug.Print Insatisfaccion
    End If
End Sub
Private Sub Timer1_Timer()
    If Escribir(NumeroArchivo, Text1.Text, True) Then
        Text1.Text = ""
        Debug.Print Satisfacción
    Else
        Debug.Print Insatisfaccion
    End If
End Sub
Private Function Escribir(NumberOFileOpen As Integer, vData As String, Optional UltimoByte As Boolean = False)
On Error GoTo eError:
    If Variable = "" Then
        If UltimoByte = True Then
            Seek #NumberOFileOpen, LOF(NumberOFileOpen) + 1'    // Nos movemos al final del archivo
        End If
        Put #NumberOFileOpen, , vData
        Escribir = True
    End If
    Exit Function
eError:
    Escribir = False
End Function
Private Sub Form_Unload(Cancel As Integer)
    Close NumeroArchivo
End Sub