Bueno amigoa aqui les dejo la forma de ordenar un vector en Visual Basic.Net
Espero Que Les Sirva

Module Module1

    Sub Main()
        Dim i, j, aux As Integer
        Dim n As Integer
        Console.Write("Ingresa Limite Del Vector: ")
        n = Console.ReadLine()
        n -= 1
        Dim mat(n) As Integer

        For i = 0 To n Step 1
            Console.Write("Ingresa elemento " & i + 1 & " : ")
            mat(i) = Console.ReadLine()
        Next
        Console.WriteLine()

        Console.WriteLine("Vector Original")
        Console.WriteLine()

        For i = 0 To n Step 1
            Console.Write("[" & mat(i) & "] ")
        Next

        For i = 0 To n Step 1
            For j = 0 To n - 1 Step 1
                If mat(j) > mat(i) Then
                    aux = mat(j)
                    mat(j) = mat(i)
                    mat(i) = aux
                End If
            Next
        Next

        Console.WriteLine()
        Console.WriteLine("Vector Ordenado")
        Console.WriteLine()

        For i = 0 To n Step 1
            Console.Write("[" & mat(i) & "] ")
        Next



        Console.ReadLine()
    End Sub

End Module