Creating Dynamic Member List

Question

I am trying to create a member list holding all the accounts that are indicated as IsICP Y. However when I select the list after loading it no members populate the data form I am creating. Please help. My script is as follows:
Sub EnumMemberLists()
Dim aAccountLists(1)
If HS.Dimension = "Account" Then
     aAccountLists(1) = "ICPAccounts"
     HS.SetMemberLists aAccountLists
End If
End Sub
IF HS.Dimension = "Account" Then
     If HS.MemberListID=1 Then
          ALi=HS.Account.List("","")
     For i=Lbound (ALi) to Unbound (ALi)
     If (StrComp(HS.Account.IsICP (ALi(i)),"Y",vbTextCompare)=0) Then
     HS.AddMembertoList ALi(i)
End If
Next
End If
End If

Answer 1

I will test both out and see which works.
I tried this too but it wasn't perfect...
Sub EnumMemberLists()
Dim aAccountLists(1)
Select Case HS.Dimension
Case "Account"
aAccountLists(1)="ICPAccounts2"
HS.SetMemberLists aAccountLists
End Select
End Sub 'EnumMemberLists
Sub EnumMembersInList()
If HS.Dimension = "Account" Then
If HS.MemberListID = 1 Then
               BaseAcct = HS.Account.List("","[Base]")
                    For a = LBound(BaseAcct) to UBound(BaseAcct)
                         If HS.Account.IsICP(BaseAcct (a)) Then
                              HS.AddMemberToList BaseAcct(a)
                         End If
                    Next
          End If
     End If
End Sub 'EnumMembersInList