Visual Basic - Funcion para las fechas

Hola como estan saben me gustaria poder hacer esto
en un textbox poner una fecha y al ejecutarse el evento lostfocus que en el textbox de al lado pusiera la fecha pero en letras o sea

text1 = "20/01/2002"
text2 = "veinte de enero de dos mil dos"

Como se puede hacer esto????
existe alguna funcion de VB que lo haga

a mi se me ocurre que guardes la fecha en una variable y mediante la funcion mid, ir recortando el contenido de la variable y de acuerdo con esto mediante condiciones escribir una cosa u otra.

Hola
te mande una funcion para esto a tu e-mail porque aqui no pude hacerlo
chao