    iU = UBound(m_sKey)
      If (Err.Number &lt;&gt; 0) Then iU = -1
      Err.Clear
      If (iU &lt;&gt; iCount - 1) Then
         ReDim Preserve m_sKey(0 To iCount - 1) As String
      End If
   End If
End Sub
Private Sub SetKey(ByVal lIndex As Long, ByVal vKey As Variant)
Dim sKey As String
Dim lI As Long

   If (IsEmpty(vKey) Or IsMissing(vKey)) Then
      sKey = ""
   Else
      sKey = vKey
   End If
    
   If (m_hIml &lt;&gt; 0) Then
      
      On Error Resume Next
      lI = UBound(m_sKey)
     