El problema es: Ingrese 3 numeros, visualice los numeros ordenados en forma descendente
Public Class Form1
Dim m As String
Dim n1, n2, n3 As Integer
Private Sub BtnCalcular_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnCalcular.Click
n1 = TxtNumero1.Text
n2 = TxtNumero2.Text
n3 = TxtNumero3.Text
If n1 <= n2 & n2 <= n3 Then
m = n1 & " " & n2 & " " & n3
TxtResultado.Text = m
If n1 <= n3 & n3 <= n2 Then
m = n1 & " " & n3 & " " & n2
TxtResultado.Text = m
If n2 <= n1 & n1 <= n3 Then
m = n2 & " " & n1 & " " & n3
TxtResultado.Text = m
If n2 <= n3 & n3 <= n1 Then
m = n2 & " " & n3 & " " & n1
TxtResultado.Text = m
If n3 <= n1 & n1 <= n2 Then
m = n3 & " " & n1 & " " & n2
TxtResultado.Text = m
If n3 <= n2 & n2 < n1 Then
m = n3 & " " & n2 & " " & n1
TxtResultado.Text = m
End If
End If
End If
End If
End If
End If
End Sub
Private Sub BtnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLimpiar.Click
TxtNumero1.Clear()
TxtNumero2.Clear()
TxtNumero3.Clear()
TxtResultado.Clear()
TxtNumero1.Focus()
End Sub
End Class

Ayuda por favor
soy novato