Imports System

Public Module Module1

    Dim names()As string = {"Sophie", "Lily", "Jessica", "Isabella","Ava","Poppy","Emily", "Isla", "olivia", "Amelia"}

    Public Sub Main()

        DIm swapmade as boolean= True

        while swapmade= True

            swapmade= False

            For x = 0 To UBound (names) - 1

            If names (x+1) < Names(x) Then

                Dim temp as string = names(x)

                names(x) = names(x+1)

                names(x+1) = temp

                swapmade = true

            end if

        next

    End Sub

End Module