If List.Count = 0 Then                      
                 List.Add OneLine
            Else
 
                For Index = 1 To List.Count                 
 
                    Set LineExisting = List.Item(Index)
                    compExisting = LineExisting.Get_key()
                    pos = pos + 1                              
 
                    If LCase(comp) <= LCase(compExisting) Then
                        List.Add OneLine, , pos                
                    Else
                        List.Add OneLine
                    End If
 
                Next
 
            End If