Funcion CHOOSE pero en VBA

Hola de nuevo.
Esta vez me encuentro con lo siguiente:

En una hoja (celda D4), tengo aplicada esta funcion:

=CHOOSE(C4;"AVISO";"CONSULTAS";"TECNICO";"902702702";;;;;"")

El caso es que la celda D4 la quiero borrar (su contenido) manualmente
cuando quiera, asi que se me elimina la funcion. Por lo tanto me
gustaria aplicar esa funcion en VBA para que siempre se aplique a D4
(indiferentemente de su contenido).

Otra funcion me indica que cuando D4="" (nada, o sea, lo borro lo que
hubiera tenido) then C4=9 (que a su vez me indica que D4="", como se
puede ver).

El caso es que quisiera usar esa funcion desde VBA pero no se
correctamente hacerlo.

Tengo esta base, (pero sé que me faltan cosas)

Function GetChoice(Ind As Integer)
GetChoice = Choose(Ind, "AVISO", "CONSULTAS", "TECNICO")
End Function

Sí, sí, lo que hay aqui arriba esta incompleto para mis necesidades,
pero el caso es que no sé qué le falta ni cómo hacerlo para que me
funcione como si estubiera la funcion en D4 (como esta ahora y
funciona... hasta que borro su contenido a mano).

Gracias de antemano.

Victor