Double click on your user  form itself...and enter this code...

Private Sub UserForm_Activate()
With TextBox1 '<----change to your textbox name
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub

Just be sure to change  the name to your textbox name.