Sub ReSort(L As Control)
   '
   Dim P%, PP%, C%, Pre$, S$, V&, NewPos%, CheckIt%
   Dim TempL$, TempItemData&, S1$
   '
   For P =  0  To L.ListCount -  1 
       S = L.List(P)
       For C =  1  To Len(S)
           V = Val(Mid$(S, C))
           If V >  0  Then Exit For
       Next
       If V >  0  Then
           If C >  1  Then Pre = Left$(S, C -  1 )
           NewPos = - 1 
           For PP = P +  1  To L.ListCount -  1 
               CheckIt = False
               S1 = L.List(PP)
               If Pre <> "" Then
                   If InStr(S1, Pre) =  1  Then _
                       CheckIt = True
               Else
                   If Val(S1) >  0  Then CheckIt = True
               End If
               If CheckIt Then
                   If Val(Mid$(S1, C)) < V Then _
                       NewPos = PP
               Else
                   Exit For
               End If
           Next
           If NewPos > - 1  Then
               TempL = L.List(P)
               TempItemData = L.ItemData(P)
               L.RemoveItem (P)
               L.AddItem TempL, NewPos
               L.ItemData(L.NewIndex) = TempItemData
               P = P -  1 
           End If
       End If
   Next
End Sub