Simple (Lowercase / uppercase) RESOLVED

[dglienna]

This should do it.

Option Explicit
 
Private Sub Form_Load()
  Dim x As Integer
  For x = 0 To list1.ListCount - 1
    If list1.List(x) = LCase(list1.List(x)) Then
      list2.AddItem list1.List(x) ' all lowercase
    Else
      list3.AddItem list1.List(x) ' mixes case
    End If
  Next x
End Sub