Enxcel usando visual basic

Hola,
como puedo resolver el dilema me dejaron de tarea hacer en programación en una hoja de Excel que me dieron el codigo pero para que Realice la funcion de ingresar una feha de nacimiento aparesca el signo zodiacal me manda un error, me puedes ayudar? Con el codigo mandarlo o decirme donde me eqivoque