Another Multiselect Question

for intX = 0 to Me.lstForms.ItemsSelected.Count -1
   ...
   strAap = strAap & Me.lstForms.ItemData(intX)
   ...
next intX

Private Sub Form_Current()
    Dim oItem As Variant
    Dim bFound As Boolean
    Dim sTemp As String
    Dim sValue As String
    Dim sChar As String
    Dim iCount As Integer
    Dim iListItemsCount As Integer
    
    sTemp = Nz(Me![Find Type].Value, " ")
    iListItemsCount = 0
    bFound = False
    iCount = 0

    Call clearListBox
        
    For iCount = 1 To Len(sTemp) + 1
    sChar = Mid(sTemp, iCount, 1)
        If StrComp(sChar, ",") = 0 Or iCount = Len(sTemp) + 1 Then
            bFound = False
            Do
                If StrComp(Trim(Me![Find Type List].ItemData(iListItemsCount)), Trim(sValue)) = 0 Then
                    Me![Find Type List].Selected(iListItemsCount) = True
                    bFound = True
                End If
                iListItemsCount = iListItemsCount + 1
            Loop Until bFound = True Or iListItemsCount = Me![Find Type List].ListCount
            sValue = ""
        Else
            sValue = sValue & sChar
        End If
    Next iCount
End Sub
    
Private Sub clearListBox()
    Dim iCount As Integer
        
    For iCount = 0 To Me![Find Type List].ListCount
        Me![Find Type List].Selected(iCount) = False
    Next iCount
End Sub



Private Sub multiselect_Click()
    Dim oItem As Variant
    Dim sTemp As String
    Dim iCount As Integer
    
    iCount = 0
            
    If Me![Find Type List].ItemsSelected.Count <> 0 Then
        For Each oItem In Me![Find Type List].ItemsSelected
            If iCount = 0 Then
                sTemp = sTemp & Me![Find Type List].ItemData(oItem)
                iCount = iCount + 1
            Else
                sTemp = sTemp & "," & Me![Find Type List].ItemData(oItem)
                iCount = iCount + 1
            End If
        Next oItem
    Else
        MsgBox "Nothing was selected from the list", vbInformation
        Exit Sub  'Nothing was selected
    End If
    
    Me![Find Type].Value = sTemp
End Sub