Thanks for that the line showing as the error are

the first two after the button commands, they are

Private Sub UserForm_Initialize()
txtName.Value = ""