Necesito código para pasar a un textBox solo si esta tildado su CheckBox en Macro Exel VB

Hola a todos. Estoy realizando un Formulario en Exel 2007 utilizando el editor de código de VB que posee dicha aplicación. El tema es que mi formulario posee varios CheckBox, y cada uno de ellos posee una casilla de texto (TextBox). Lo que quiero es que al tildar por ejemplo el CheckBox1 me lleve automáticamente a su casilla TextBox1. Eh intentado con la sentencia SetFocus pero al ejecutar el formulario no pasa nada.

Espero hallan entendido mi duda, ya que quiero evitar tener que hacerlo con el mouse, osea, que valla corriendo automáticamente.

Desde ya muchas gracias y quedo a la espera de una respuesta!!!!

P/D: lo ago de esta manera:

if Check1.Value = true then Text1.SetFocus