How to autopopulate a textbox linked to a cell

[Patriot2879]

Hi hope you can help, I have a userform1 with multiple texboxes in and I want this to automatically load up with informaton from the 'Data' sheet into the textbox, I have done the code below but its not working, nothing appears in textbox1. for Example TextBox1 I want to look in a sheet called 'Data' and the range is B1, this is in date format dd/mm/yyyy and it should be vertical going down.. can you help please.

Private Sub TextBox1_Change()
TextBox1.Value = Sheets("Data").Range("B1").Value
End Sub

 

[Patriot2879]

This works great thank you for your help