Salve a tutti... sono di nuovo qui a combattere questo problema

Avrei la necessità di includere un file testo contenete 4 numeri (almeno io ho optato per questa opzione). Avevo pensato di metterlo nei Resources. All'avvio del form il programma dovrebbe assegnare il numero (ripeto da 4 cifre) contenuto nel file .txt, nella textbox1

Poi premuto un pulsante, questo numero dovrà essere incrementato di 1 e sovrascrivere il numero precedente

ES:

All'inizio ho il numero 1702
premuto il pulsante diventerà 1703
e contemporaneamente verrà salvato quindi alla chiusura e alla successiva riapertura del programma, nella TextBox1 dovrà comparire il numero 1703 e non 1702

Per adesso sono arrivato a questo

codice:
Public Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
     AcceptButton = Button1 
     Dim fileReader As String 
     fileReader = My.Resources.test 'questa è la stringa che assegna a filereader il valore del        file test.txt
     TextBox1.Text = fileReader 'qui assegno alla textbox1 il valore
     Dim data As DateTime = Today() 
     TextBox2.Text = data 
End Sub 

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click 
     PictureBox1.Image = My.Resources.BASE 
     If Not TextBox1.Text = "" Then 
           TextBox1.Text = Val(TextBox1.Text + 1) 'qui incremento
     End If 
     TextBox8.ReadOnly = True
     Dim test As Integer = My.Resources.test 'qui mi incasino
     AcceptButton = Button1 
     TextBox4.Text = "" 
     TextBox6.Text = "" 
     TextBox8.Text = "" 
     TextBox7.Text = "" 
     Combo1.Text = "" 
     Combo2.Text = "" 
     TextBox4.Focus() 

     'qui dovrei aggiungere la stringa per salvare il numero

End Sub
P.s. Grazie per tutto
P.s.s. Non fate caso a tutti gli altri impicci