Essayez en ajoutant ByVal devant le paramètre.
(À la base TextBox1 n'est pas une TextBox mais un OLEObject, puisqu'il nest pas dans le milieu naturel d'une TextBox qu'est un UserForm et qu'il lui faut donc un objet intermédiaire support)
Si ça ne va toujours pas, à l'appel précisez en plus TextBox1.Control.
Si pas accepté OLEObjects("TextBox1").Control
Notez que si la Sub n'a besoin que de sa valeur, transmettez celle ci, ce sera plus simple.
(Toujours ByVal pour ne pas s'offrir comme cible au Type d'argument ByRef incompatible)