Russellil on veerg sisemisi IP-aadresse ja ta soovib need sortida. Probleem on selles, et .100. aadressid tulevad enne .22. aadressid.
Kui Russell lisab uue, ajutise veeru, mida sortimiseks kasutada, saab ta kasutada seda uut kohandatud funktsiooni IPForSort (). See kood tuleks kleepida töövihiku koodimoodulisse.
Public Function IPforSort(OrigVal) IPforSort = "" OrigVal = OrigVal & "." Bg = 1 For i = 1 To Len(OrigVal) If Mid(OrigVal, i, 1) = "." Then IPforSort = IPforSort & Format(Mid(OrigVal, Bg, i - Bg), "000") & "." Bg = i + 1 End If Next i IPforSort = Left(IPforSort, Len(IPforSort) - 1) End Function
