バブルソート出来た！

Module Module1
    Sub main()
        Dim i As Integer
        Dim for_each As Integer
        Dim index As Integer() = {5, 1, 3}

        Dim tmp As Integer

        Dim tmp_2 As Integer
        For x As Integer = 0 To index.Length - 1

            For y As Integer = 0 To index.Length - i

                If index(i) > index(i + 1) Then

                    tmp = index(y)

                    tmp_2 = index(y + 2)

                    index(y) = index(y + 1)

                    index(y + 1) = tmp

                    index(y + 2) = index(y + 1)

                    index(y + 1) = tmp_2

                End If

            Next

        Next
        For Each for_each In index

            Console.WriteLine(for_each)

        Next

    End Sub

End Module