Try This in the UserForm 
Private Sub UserForm_Initialize()
    TextBox1 = Range("A1")
End Sub