lse
                  bFound = True
               End If
               lRow = lRow + 1
            Loop
         End If
         grdOutlook.Redraw = True
      End If
   End If
End Sub

Private Sub grdOutlook_RequestEdit(ByVal lRow As Long, ByVal lCol As Long,
 ByVal iKeyAscii As Integer, bCancel As Boolean)
Static sSearch As String
   Debug.Print "RequestEdit"
   If (iKeyAscii &lt;&gt; 0) Then
      Debug.Print iKeyAscii
      ' Search for the match:
      If (iKeyAscii &lt;&gt; 8) Then
         sSearch 