Сортировка элементов типа String

Private Sub Form_Load()
    Dim a     As String
    Dim aL    As Long
    
    a = "116.230.100.235:21915"
    Debug.Print CLng(a)
 
End Sub

Public Function CodesIP(IpAddress As String) As String
    Dim varCells() As String
    varCells = Split(IpAddress, ".")
    CodesIP = String(3 - Len(varCells(0)), "0") & varCells(0) & "." & String(3 - Len(varCells(1)), "0") & varCells(1) & "." & String(3 - Len(varCells(2)), "0") & varCells(2) & "." & String(3 - Len(varCells(3)), "0") & varCells(3)
End Function
 
Public Function deCodesIP(IpAddress As String) As String
    Dim varCells() As String
    varCells = Split(IpAddress, ".")
    deCodesIP = Val(varCells(0)) & "." & Val(varCells(1)) & "." & Val(varCells(2)) & "." & Val(varCells(3))
End Function

Public Type myBytes
    B1 As Byte
    B2 As Byte
    B3 As Byte
    B4 As Byte
End Type
 
Public Type myLong
    Val As Long
End Type
 
Public Function IP2Long(IP As String) As Long
    ReDim parse(0 To 3) As String
    Dim B As myBytes
    Dim L As myLong
    parse = Split(IP, ".")
    B.B1 = Val(parse(0))
    B.B2 = Val(parse(1))
    B.B3 = Val(parse(2))
    B.B4 = Val(parse(3))
    LSet L = B
    IP2Long = L.Val
End Function
 
Public Function Long2IP(ByVal IP As Long) As String
    Dim L As myLong
    Dim B As myBytes
    L.Val = IP
    LSet B = L
    Long2IP = Trim(Str$(B.B1)) + "." + Trim(Str$(B.B2)) + "." + Trim(Str$(B.B3)) + "." + Trim(Str$(B.B4))
End Function

Public Function ConvertVersionToNumber(sVersion As String) As Long  '"1.1.1.1" -> 1 number
    On Error GoTo ErrorHandler:
    Dim Ver() As String
    
    If 0 = Len(sVersion) Then Exit Function
    
    Ver = SplitSafe(sVersion, ".")
    If UBound(Ver) = 3 Then
        ConvertVersionToNumber = cMath.Shl(Val(Ver(0)), 24) + cMath.Shl(Val(Ver(1)), 16) + cMath.Shl(Val(Ver(2)), 8) + Val(Ver(3))
    End If
    
    Exit Function
ErrorHandler:
    ErrorMsg Err, "ConvertVersionToNumber"
    If inIDE Then Stop: Resume Next
End Function

' Сортировка по Хоару. На вход - массив j(), на выходе массив k() с индексами массива j в отсортированном порядке + отсортированный массив.
' Алгоритм особо отлично подходит для сортировки User type arrays по любому из полей.
Public Sub QuickSortSpecial(j() As String, k() As Variant, ByVal low As Long, ByVal high As Long)
    On Error GoTo ErrorHandler:
    Dim i As Long, L As Long, M As String, wsp As String
    i = low: L = high: M = j((i + L) \ 2)
    Do Until i > L: Do While j(i) < M: i = i + 1: Loop: Do While j(L) > M: L = L - 1: Loop
        If (i <= L) Then wsp = j(i): j(i) = j(L): j(L) = wsp: wsp = k(i): k(i) = k(L): k(L) = wsp: i = i + 1: L = L - 1
    Loop
    If low < L Then QuickSortSpecial j, k, low, L
    If i < high Then QuickSortSpecial j, k, i, high
    Exit Sub
ErrorHandler:
    ErrorMsg Err, "QuickSortSpecial"
    If inIDE Then Stop: Resume Next
End Sub

        ReDim aPos(UBound(aIP))
        
        For i = 0 To UBound(aPos)
            aPos(i) = i
        Next
        
        QuickSortSpecial aIP, aPos, 0, UBound(aIP)
        
        For i = 0 To UBound(aPos)
            Debug.Print aStringIP(aPos(i))
        Next