condición if else

EJEMPLO UNO


If Val(TextBox1.Text) = 1 Then
  TextBox2.Text = "  ES DIA LUNES"
Else
If Val(TextBox1.Text) = 2 Then
  TextBox2.Text = " ES DIA MARTES"
Else
  If Val(TextBox1.Text) = 3 Then
  TextBox2.Text = " ES DIA MIRCOLES"
Else
  If Val(TextBox1.Text) = 4 Then
  TextBox2.Text = " ES DIA JUEVES"
  Else
  If Val(TextBox1.Text) = 5 Then
  TextBox2.Text = " ES DIA VIERNES"
  Else
  If Val(TextBox1.Text) = 6 Then
  TextBox2.Text = " ES DIA SABADO"
    Else
  If Val(TextBox1.Text) = 7 Then
  TextBox2.Text = " ES DIA DOMINGO"
    Else
  TextBox2.Text = " ESE NUMERO DE DIA NO EXISTE INTENTE CON OTRO"

End If
End If
End If
End If
End If
End If
End If