Ordenar 3 Numeros En Visual Basica

codigo para ordenar 3 numeros

Inserta cuatro cajas de texto, Text1, Text2, Text3, Text4, y un botón, Command1, en tu formulario,

Dale doble click al botón, y pega el siguiente código:Private Sub Command1_Click()
'Declaramos Variables
Dim Mayor As Integer
Dim Mediano As Integer
Dim Menor As Integer

'Limpiamos Text4
Text4.Text = ""

'Obtenemos valores de las cajas de textoMayor = Val(Text1.Text)
Mediano = Val(Text2.Text)
Menor = Val(Text3.Text)

'Saber que numeros se repiten

If Mayor = Mediano And Mayor = Menor Then
Text4.Text = "El resultado es:" + Chr$(13) &Chr$(10) + "Los Números son Iguales"

ElseIf Mayor = Mediano Then

Text4.Text = "El resultado es:" + Chr$(13) & Chr$(10) + "El Número " + Text1.Text + " se Repite"

ElseIf Mayor = MenorThen

Text4.Text = "El resultado es:" + Chr$(13) & Chr$(10) + "El Número " + Text1.Text + " se Repite"

ElseIf Mediano = Menor Then

Text4.Text = "El resultado es:" + Chr$(13) & Chr$(10) +"El Número " + Text2.Text + " se Repite"

Else

Text4.Text = "El resultado es:"

End If

'Saber que posicion le corresponde a Mayor (Text1)

If Mayor > Mediano And Mayor > Menor ThenText4.Text = Text4.Text + Chr$(13) & Chr$(10) + "El Número " + Text1.Text + " es el Mayor"

ElseIf Mayor > Mediano And Mayor < Menor Then
Text4.Text = Text4.Text + Chr$(13) &Chr$(10) + "El Número " + Text1.Text + " es el Mediano"

ElseIf Mayor < Mediano And Mayor > Menor Then
Text4.Text = Text4.Text + Chr$(13) & Chr$(10) + "El Número " + Text1.Text + " es elMediano"

ElseIf Mayor < Mediano And Mayor < Menor Then
Text4.Text = Text4.Text + Chr$(13) & Chr$(10) + "El Número " + Text1.Text + " es el Menor"

End If

'Saber que posicion lecorresponde a Madiano (Text2)

If Mediano > Mayor And Mediano > Menor Then

Text4.Text = Text4.Text + Chr$(13) & Chr$(10) + "El Número " + Text2.Text + " es el Mayor"

ElseIf Mediano >...