[Help]Save Text[Solved]

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        My.Computer.FileSystem.WriteAllText("C:/" & "\keys.txt", Text, True)
    End Sub

Dim Deskloc As String
        Deskloc = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)


        Dim Tfile As String = "Deskloc" & "keys.txt"
        IO.File.WriteAllText(Tfile, TextBox1.Text)

dim streami as streamwriter

streami = New StreamWriter("C:\test.txt")
   streami.Write(Textbox1.text)
   streami.Close()

Dim var As New System.IO.StreamWriter("\MyText.txt", True)

var.WriteLine()
        var.WriteLine("Name: "& textbox1.text)
var.close()