Cómo escribir almanaque en vb

¿Privado? ¿Sub? Command1_Click()

¿Atenuar? ¿Mi mes? ¿Como qué? Entero

¿Atenuado? ¿Mi año? ¿Como qué? Entero

¿Mi año? =?val(texto 1. texto)

¿Mi mes? =?Val(Texto2.Texto)

SMS3. ¿Mensaje corto? =?DateDiff("d",?miaño?&?"-"?&?mimes?&?"-"?&?"1",?miaño?&?" -"?& amp?¿Mi mes?+? 1?& amp?"-"?& amp?"1")

¿Fin? Submarino

¿Privado? ¿Sub? FormLoad()

Texto1. ¿Mensaje corto? =?Año(fecha)? Introduzca el año en el texto 1.

Texto 2. ¿Mensaje corto? =?1?Ingrese el mes en el texto 2.

SMS 3. ¿Mensaje corto? =?""?Ingrese el número de días correspondientes al mes en el texto 3.

Comando 1. ¿subtitular? =?"Ver"

¿Fin? Submarino