Dim strTag As String
        Dim intValue As Integer
        Dim objStreamW As IO.StreamWriter
        Dim tdNow As Date


        'Variable
        strTag = "L3Mas"
        intValue = 1

        'Writes info to file. 
        objStreamW = IO.File.AppendText("text.txt")
        objStreamW.Write(strTag & "|" & tdNow & "|")
        objStreamW.WriteLine(intValue)


        'Closes
        objStreamW.Close()

        Me.Close()