List1.AddItem?i
Next
For?i?=?0?To?List1.ListCount?-?1
If?Val(List1.List(i))?>?5?Then?List2.AddItem?List1.List(i)