Uso de IF , ELSE IF y Contains

-Creamos el siguiente formulario y añadimos el código al botón Consultar.
if form

Public Class Form1

    'USO DE IF, ELSE IF 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim num1, num2 As Integer
        num1 = TextBox1.Text        'Creamos las variables num1 y num2 que recojerán los datos introducidos en las cajas de texto.
        num2 = TextBox2.Text

        If (num1 < num2) Then       'Si el numero de la primera caja de texto es menor que el de la seunda caja de texto.
            MsgBox("El número1 es menor que el número2") 'Muestra esta en pantalla.
        ElseIf (num1 = num2) Then   'O si el número de la primera caja de texto es igual que el de la segunda.
            MsgBox("El número1 es igual al número2")     'Muestra esto en pantalla.
        Else                        'Si no se cumple ninguna de las anteriores condiciones.
            MsgBox("El número1 es mayor que el número2") 'Muestra esto en pantalla.

        End If


        If (TextBox1.Text.Contains(5)) Then              'Si la primera caja de texto contiene el número 5
            MsgBox("Está prohibido utilizar el número 5") 'Muestra esto en pantalla.

        End If
    End Sub
End Class

if else

La Coruña, España Correo contacto@pc-solucion.es