log

Public Sub log(ByVal msj As String)
        Dim lista As New List(Of String)
        Try
            lista = File.ReadAllLines(archivo).ToList
            lista.Insert(0, msj)

            'Dim formatter As IFormatter
            'Using st As Stream = New MemoryStream
            '    formatter = New BinaryFormatter
            '    formatter.Serialize(st, lista)
            '    MessageBox.Show(st.Length \ 1024)
            'End Using

            File.WriteAllText(archivo, String.Empty)
            File.WriteAllLines(archivo, lista.ToArray, System.Text.Encoding.UTF8)
            lista.Clear()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub