Hola Antoni: Creo saber que sucede. En el codigo que envias no estan, pero al crear el USerform, haces uso de 2 funciones del API de windows: FindWindow y SetWindowLong, por lo que sospecho que se te "escapo" al copiar/pegar. Ademas, al ver que copiar codigo hasta la linea 19, me hace estar mas seguro, aun, de eso.
Ah, no olvidar que de manera obliga el modulo en el que se copia tu codigo, debe ser uno "normal" llamado "Módulo1"
Saludos
Abraham
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long