ror Resume Next
   lKeyCount = UBound(m_sKey)
   If (Err.Number &lt;&gt; 0) Then lKeyCount = 0
   
   If (sKeys &lt;&gt; "") Then
      iLastPos = 1
      Do
         iPos = InStr(iLastPos, sKeys, Chr$(255))
         If (iPos &gt; 0) Then
            If iPos - iLastPos &gt; 1 Then
               m_sKey(lKey) = Mid$(sKeys, iLastPos, iPos - iLastPos)
            End If
            lKey = lKey + 1
            iLastPos = iPos + 1
         End If
      Loop While iPos &lt;&gt; 0 And lKey &lt; lKeyCount
      If 