Select Case Item.Key
       Case "undo":
                                If TypeOf Screen.ActiveForm.ActiveControl Is _
                                  sevText Then
                                    With Screen.ActiveForm.ActiveControl.Name
                                        If .CanUndo = True Then
                                            .Undo
                                        End If
                                    End With
                                End If
   End Select

Lars

--

A programmer is just a tool which converts caffeine into code