= sSearch &amp; Chr$(iKeyAscii)
      Else
         If (Len(sSearch) &gt; 0) Then
            sSearch = Left$(sSearch, Len(sSearch) - 1)
         End If
      End If
      Debug.Print sSearch
   End If
   bCancel = True
End Sub

Private Sub mnuColumns_Click(Index As Integer)
Dim bS As Long
   bS = Not (mnuColumns(Index).Checked)
   mnuColumns(Index).Checked = bS
   grdOutlook.ColumnVisible(mnuColumns(Index).Tag) = bS
End Sub

Private Sub mnuFile_Click(Index As Integer)
   Unload Me
End Sub

Private Sub mnuP