prueba con esto:
Dim fecha As DateTime = Now.Day & "/" & Now.Month & "/" & Now.Year
Label1.Text = fecha.ToString("dd/MMM/yyyy")
obiamente lo que vaz a recuperar en la variable es el valor de tu calendar
para mas referencias checa esta pagina
http://msdn.microsoft.com/es-es/libr...8f(VS.80).aspx