Automatisch vullen TextBox vanuit een cel in VBA

Kan iemand mij zeggen hoe, en waar ik de code moet maken/plaatsen om een waarde uit een cel te halen en die automatisch in een formulier in een TextBox te krijgen.

Het gaat om "Cel S6" uit het Tabblad "Menu"
Deze moet zichtbaar zijn/komen in "TextBox1" als ik het Formulier aanroep.
Ik neem aan dat de huidige regels die met "TextBox1"te maken hebben weg moeten of wellicht aangepast moeten worden.
Maar hoe is mijn vraag.?

Mijn huidige code is:
Private Sub CommandButton1_Click() 'Verwerken
Son_Dolu_Satir = Sheets("2019").Range("A1000").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("2019").Range("A" & Bos_Satir).Value = TextBox1.Text 'Klant ID
Sheets("2019").Range("C" & Bos_Satir).Value = TextBox2.Text 'Aantal
Sheets("2019").Range("D" & Bos_Satir).Value = TextBox3.Text 'Prijs
Sheets("2019").Range("E" & Bos_Satir).Value = CDate(ComboBox4.Value) 'Datum
Sheets("2019").Range("F" & Bos_Satir).Value = ComboBox5.Value 'Verzendstatus
Sheets("2019").Range("G" & Bos_Satir).Value = TextBox6.Text 'Artikel ID
Sheets("2019").Range("M" & Bos_Satir).Value = ComboBox6.Value 'Barcode
Sheets("2019").Visible = True
Sheets("2019").Select
End Sub

Private Sub ListBox1_Click() 'Invullen
TextBox1.Text = Sheets("2019").Range("A" & Bulunan_Satir_No).Value 'Klant ID
TextBox2.Text = Sheets("2019").Range("C" & Bulunan_Satir_No).Value 'Aantal
TextBox3.Text = Sheets("2019").Range("D" & Bulunan_Satir_No).Value 'Prijs
ComboBox4.List = Cells(1).CurrentRegion.Value
ComboBox4.List = Sheets("Datum").Range("E" & Bulunan_Satir_No).Value 'Datum
ComboBox5.Text = Sheets("Status").Range("A" & Bulunan_Satir_No).Value 'Verzendstatus
ComboBox6.Text = Sheets("Datum").Range("D" & Bulunan_Satir_No).Value 'Barcode
TextBox6.Text = Sheets("2019").Range("G" & Bulunan_Satir_No).Value 'Artikel ID
End Sub

Private Sub CommandButton2_Click() 'Afsluiten
Unload Naw
End Sub

Private Sub CommandButton3_Click() 'Leegmaken
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
ComboBox4.Value = ""
ComboBox5.Value = ""
ComboBox6.Value = ""
TextBox6.Value = ""
'TextBox7.Value = ""
End Sub

Private Sub Datum()
Date
End Sub

Private Sub ComboBox4_Change()
ComboBox4.Value = Format(ComboBox4.Value, "DD-MM-YY")
End Sub

Met dit in het formulier:

Dank voor je snelle reactie.
Het werkt.

Mag en/of kan ik in plaats van die cel er ook een formule voor in de plaats zetten.?

Dit zou dan zoiets moeten zijn.
=MAX('2019'!A4:A500)+1

Die formule kan je in de cel zetten.