Private ctrlTop As Long, ctrlLeft As Long
have not been declared at the top of the userform code module
The measurements are in Twips
If you want the textbox alongside the command button then set ctrlLeft to something like
ctrlLeft = Ctrl.Left + Ctrl.Width + 4