TextBox1.Text = New FileInfo(Application.ExecutablePath).DirectoryName + "\" + "name.txt"
        File.AppendAllText(vbCrLf + TextBox1.Text, "klamk")