He probado con el código que te han dejado y no me funciona en VB 6.0, que creo que es el que utilizas. Yo pondría una caja de texto (Text1) y un botón (Calcular nacimiento), y lo haría así. En el codigo del botón pondría:
Private Sub Command1_Click()
Dim annonac As Integer
Dim anno As Integer
Dim edad As Integer
edad = Text1.Text
anno = 2004
annonac = anno - edad
MsgBox "Nacio en el año " & annonac
End Sub
Creo que si que hay una forma de que funcione, sin tener que meter 2004 o 2005... Pero no sé como, si lo encuentro ya te dijo.
Espero que te sirva de ayuda si es lo que querías.
