Imports System

​

Public Structure StructureInvestment

        Public InvestmentName As String

        Public InvestmentPercent As String

    End Structure

​

​

Public Module Module1

    Public Sub Main()

​

    Dim investments(2) As StructureInvestment

    investments(0) = New StructureInvestment With {.InvestmentName = "Ze Last Investment", .InvestmentPercent = "50"}

    investments(1) = New StructureInvestment With {.InvestmentName = "Another Investment", .InvestmentPercent = "25"}

    investments(2) = New StructureInvestment With {.InvestmentName = "Some Great Investment", .InvestmentPercent = "25"}

​

    Console.WriteLine("Unsorted Array:")

​

    For Each item As StructureInvestment In investments

    Console.WriteLine("Name: {0}, Percent:{1}", item.InvestmentName, item.InvestmentPercent)

    Next

    Array.Sort(investments, Function(a, b) a.InvestmentName.CompareTo(b.InvestmentName))

​

    Console.WriteLine("")

    Console.WriteLine("Sorted Array:")

​

    For Each item As StructureInvestment In investments

    Console.WriteLine("Name: {0}, Percent:{1}", item.InvestmentName, item.InvestmentPercent)

    Next

    End Sub

End Module