[3booody]

كود :

Dim save As New SaveFileDialog
        save.Filter = "TextFile(.txt)|*.txt"
        save.FileName = "Data"
        If save.ShowDialog = DialogResult.OK Then
            Using W As IO.StreamWriter = IO.File.CreateText(save.FileName)
                W.Write("UserName" & vbNewLine & "PassWord")
                W.Close()
            End Using
        End If

وعند الاستدعاء

كود :

TextBox1.Text = IO.File.ReadAllText("المسار").Split(vbNewLine)(0)
        TextBox1.Text &= " " & IO.File.ReadAllText("المسار").Split(vbNewLine)(1)

نصيحة بما ان الملف خارجي شفر الباسورد واذا اردت الاسم ايضآ حفاظآ على الامان