Programacion Algoritmo Para Calcular El Dia Siguiente

Dia = TextBox1.Text

Mes = TextBox2.Text

Año = TextBox3.Text

If Año >= 0 Then

If Mes >= 1 And Mes <= 12 Then

If Mes = 12 Then

Label1.Text = (Año + 1)

Else

Label1.Text = Año

End If

If Mes = 1 Or Mes = 3 Or Mes = 5 Or Mes = 7 Or Mes = 8 Or Mes = 10 Then

If Dia < 31 Then Label3.Text = (Dia + 1)

If Dia < 31 Then Label2.Text = Mes

If Dia = 31 Then Label1.Text = "1"

If Dia = 31 Then Label2.Text = (Mes + 1)

Else

If Mes = 4 And Mes = 6 And Mes = 9 And Mes = 11 Then

If Dia < 30 Then Label3.Text = (Dia + 1)

If Dia < 30 Then Label2.Text = Mes

If Dia = 30 Then Label3.Text = "1"

If Dia = 30 Then Label2.Text = (Mes + 1)

Else

If Mes = 2 And (Año Mod 4) = 0 Then

If Dia < 29 Then Label3.Text = (Dia + 1)

If Dia < 29 Then Label2.Text = Mes

If Dia = 29 Then Label3.Text = "1"

If Dia = 29 Then Label2.Text = (Mes + 1)

Else

If Mes = 2 Then

If Dia < 28 Then Label3.Text = (Dia + 1)

If Dia < 28 Then Label2.Text = Mes

Else

If Dia = 28 Then Label3.Text = "1"

If Dia = 28

...