ordenar varios números ascendentemente

[lokoman]

Hola!
En tu codigo tienes varios errores, creo que estas usando sintaxis de lenguaje C:

Código vb:

dim = j As integer 'la declaracion es incorrecta, el = no va
If (( a > b) && (a > c)) Then 'los && dan error
MsgBox(c, b, a) 'si usas los (..) debes asignar el msgbox
 

La variable "StrMsg" almacena los numeros organizados y los muestra en un msgbox.

Este es el mismo codigo que te puse pero introduciendo 3 numeros:

Código vb:

Private Sub Command1_Click()
    Dim Numeros(3) As Integer, I As Integer, J As Integer
    Dim Aux As Integer
    Dim strMsg As String
 
    Numeros(0) = InputBox("Introduce Numero 1:")
    Numeros(1) = InputBox("Introduce Numero 2:")
    Numeros(2) = InputBox("Introduce Numero 3:")
 
    For I = 0 To 2
        For J = 0 To 2
            If Numeros(I) < Numeros(J) Then
                Aux = Numeros(J)
                Numeros(J) = Numeros(I)
                Numeros(I) = Aux
            End If
        Next J
    Next I
    
    For I = 0 To 2
        strMsg = strMsg & Numeros(I) & ", "
    Next I
    
    MsgBox strMsg
End Sub
 

Si lo que quieres es el mayor de 3 numeros:

Código vb:

Private Sub Command3_Click()
    Dim A As Integer, B As Integer, C As Integer
    
    A = InputBox("Introduce Numero 1:")
    B = InputBox("Introduce Numero 2:")
    C = InputBox("Introduce Numero 3:")
    If (A > B) Then
        If (A > C) Then
            MsgBox "El mayor es: " & A
        Else
            If (C > B) Then MsgBox "El mayor es: " & C
        End If
    Else
        If (B > C) Then
            MsgBox "El mayor es: " & B
        Else
            If (C > A) Then MsgBox "El mayor es: " & C
        End If
    End If
End Sub