Option Explicit

 

    Dim ard() As String, i As Long

 

    Private Sub BubbleSort(ByVal pstrArray() As String)

        Dim plngMaxItem As Long, i As Long

        Dim fSwitched As Boolean, strTemp As String

        plngMaxItem = UBound(pstrArray)

        Do

            fSwitched = False

            For i = 1 To plngMaxItem - 1

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

                    ' If pstrArray(i) < pstrArray(i + 1) Then

                    fSwitched = True

                    strTemp = pstrArray(i)

                    pstrArray(i) = pstrArray(i + 1)

                    pstrArray(i + 1) = strTemp

                End If

            Next

        Loop While fSwitched

    End Sub

 

    Private Sub Form_Load()

        ReDim ard(6)

        ard(1) = "http://aa4"

        ard(2) = "http://aa3"

        ard(3) = "http://bb2"

        ard(4) = "http://aa1"

        ard(5) = "http://www.dufa.land.ru"

        ard(6) = "http://www.sources.ru"

        ''''

        Call BubbleSort(ard())

        For i = 1 To UBound(ard())

            Call MsgBox(ard(i), , i)

        Next

    End Sub