List box help

I want to divide a the contents of a listbox into 2 different categories based on the length of the entries

i want all of the entries with more than 5 characters inputted into another listbox, and i want the entries with less than 5 characters to be inputted into a different listbox.

how would i go about this?

thanks

VB Code:

Option Explicit
 
Private Sub Command1_Click()
    List2.Clear: List3.Clear
 
    Dim N As Long
        For N = 0 To List1.ListCount - 1
            If Len(List1.List(N)) > 5 Then
                List2.AddItem List1.List(N)
            Else
                List3.AddItem List1.List(N)
            End If
        Next N
End Sub