Error 424 en tiempo de ejecución, se requiere objeto.

Tengo un problema a la hora de abrir el calendario.

Private Sub MostrarCalendario_Click()
CAL.Top = 55 ' concreta mente en esta linea me da ele error, de ahí no pasa
CAL.Left = 20
CAL.Visible = True
If IsDate(TextBox4) = True Then
CAL.Value = TextBox4
Else
CAL.Value = Date
End If
End Sub

Doy las gracias de antemano.

No es mio, esto lo he recuperado de una hoja de excel, me gustó y lo he puesto una mía.