[aldery]

أهلا و سهلا بك صديقي , تفضل هذا كود لطلبك

فقط قم بعمل مكان التخزين في Settings و اجعل اسمه ff 

كود :

Public Class Form1

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       If My.Settings.ff = Nothing Then
           TextBox1.Text = Date.Now.ToShortDateString

       Else
           TextBox1.Text = My.Settings.ff
       End If
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       My.Settings.ff = TextBox1.Text
       My.Settings.Save()
   End Sub
End Class