Get event when user presses Enter within a datagrid

I'm still devoloping my Add-In for Microsoft word. Now I have again trouble with the datagrid.

I have a datagrid where the user can enter data. My aim is to recognize when the user presses Enter while entering his data. I found some examples but they only work when I run my application as a console application. When I run it as the Add-In nothing happens.

Any ideas, what may be wrong or how to make it better?

Here's my code (the second column is the column where the user can enter data)
(BTW: how can I enter VB-Code?)

PHP Code:

---

    Private Sub FormatGrid()
        Dim objTablestyle As DataGridTableStyle
        Dim objColumnTextColumn As DataGridEnableTextBoxColumn
        Dim objTextCol As DataGridKeyTrapTextBoxColumn
        Dim i As Integer
        Try
            'Tablestyle
            objTablestyle = New DataGridTableStyle()
            With objTablestyle
                'some code
            End With

            '1. Spalte (Bezeichnung)
            i = 0
            objColumnTextColumn = New DataGridEnableTextBoxColumn(i)
            With objColumnTextColumn
                'some code
            End With
            objTablestyle.GridColumnStyles.Add(objColumnTextColumn)

            '2. Spalte (Wert)
            i = 1
            'objColumnTextColumn = New DataGridEnableTextBoxColumn(i)
            'With objColumnTextColumn
                objTextCol = New DataGridKeyTrapTextBoxColumn()
                With objTextCol
                    .HeaderText = Me.grdData.TableStyles(IBS_Vorschau.objDataSetVorschau.strTableName).GridColumnStyles(i).HeaderText
                    .MappingName = Me.grdData.TableStyles(IBS_Vorschau.objDataSetVorschau.strTableName).GridColumnStyles(i).MappingName
                    .NullText = Me.grdData.TableStyles(IBS_Vorschau.objDataSetVorschau.strTableName).GridColumnStyles(i).NullText
                    .ReadOnly = Me.grdData.TableStyles(IBS_Vorschau.objDataSetVorschau.strTableName).GridColumnStyles(i).ReadOnly
                    .Width = Me.grdData.TableStyles(IBS_Vorschau.objDataSetVorschau.strTableName).GridColumnStyles(i).Width
                    AddHandler .TextBox.MouseDown, New System.Windows.Forms.MouseEventHandler(AddressOf HandleMouseDown)
                    AddHandler .TextBox.Enter, New EventHandler(AddressOf EnterTextBox)
                    AddHandler .TextBox.Leave, New EventHandler(AddressOf LeaveTextBox)
                    AddHandler .TextBox.TextChanged, New EventHandler(AddressOf TextChangedInTextBox)
                AddHandler .KeyPressed, New DataGridKeyTrapTextBoxColumn.KeyPressHandler(AddressOf KeyPressed)
                'AddHandler .TextBox.KeyDown, New KeyEventHandler(AddressOf Test)
                End With

                DataGridKeyTrapTextBoxColumn.mRowCount = mdseDataSetVorschau.Tables(IBS_Vorschau.objDataSetVorschau.strTableName).Rows.Count
            'objTablestyle.GridColumnStyles.Add(objColumnTextColumn)
            objTablestyle.GridColumnStyles.Add(objTextCol)

                ' make the dataGrid use our new tablestyle and bind it to our table
                Me.grdData.TableStyles.Clear()
                Me.grdData.TableStyles.Add(objTablestyle)
                Me.grdData.DataSource = mdseDataSetVorschau.Tables.Item(IBS_Vorschau.objDataSetVorschau.strTableName)

        Catch
            MsgBox("frmIBS_Vorschau.FormatGrid: " & Err.Description)
        Finally
            objColumnTextColumn = Nothing
            objTablestyle = Nothing
        End Try
    End Sub

   Public Class DataGridKeyTrapTextBoxColumn
        Inherits DataGridTextBoxColumn

        Private mKeyTrapTextBox As KeyTrapTextBox = Nothing
        Private mSource As System.Windows.Forms.CurrencyManager = Nothing
        Private mRowNum As Integer
        Private mIsEditing As Boolean = False
        Public Shared mRowCount As Integer = 0

        'Events
        Public Event KeyPressed As KeyPressHandler

        'Methods
        Public Delegate Sub KeyPressHandler(ByVal sender As Object, ByVal e As DataGridKeyPressEventArgs)

        Private Sub TextBoxEditStarted(ByVal sender As Object, ByVal e As KeyPressEventArgs)
            MsgBox("In TextBoxEditStarted")
            mIsEditing = True
        End Sub

        Private Sub LeaveKeyTrapTextBox(ByVal sender As Object, ByVal e As EventArgs)
            MsgBox("In LeaveKeyTrapTextBox")
            If mIsEditing Then
                SetColumnValueAtRow(mSource, mRowNum, mKeyTrapTextBox.Text)
                mIsEditing = False
                Invalidate()
            End If
            mKeyTrapTextBox.Hide()
        End Sub


        Protected Overloads Overrides Sub Edit(ByVal source As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer, ByVal bounds As System.Drawing.Rectangle, ByVal [readOnly] As Boolean, ByVal instantText As String, ByVal cellIsVisible As Boolean)

            If (mRowCount < source.Count) Then
                mSource.RemoveAt(mSource.Count - 1)
                mSource.AddNew()
            End If
            mRowCount = source.Count

            MyBase.Edit(source, rowNum, bounds, [readOnly], instantText, cellIsVisible)

            mRowNum = rowNum
            mSource = source

            mKeyTrapTextBox.Parent = Me.TextBox.Parent
            mKeyTrapTextBox.Location = Me.TextBox.Location
            mKeyTrapTextBox.Size = Me.TextBox.Size
            mKeyTrapTextBox.Text = Me.TextBox.Text
            Me.TextBox.Visible = False
            mKeyTrapTextBox.Visible = True
            mKeyTrapTextBox.BringToFront()
            mKeyTrapTextBox.Focus()

        End Sub

        Protected Overrides Function Commit(ByVal dataSource As System.Windows.Forms.CurrencyManager, ByVal rowNum As Integer) As Boolean

            If (mIsEditing) Then
                mIsEditing = False
                SetColumnValueAtRow(dataSource, rowNum, mKeyTrapTextBox.Text)
            End If
            Return True
        End Function

        Private Sub ReturnKey(ByVal sender As Object, ByVal e As DataGridProcessKeyEventArgs)
            Dim x As DataGridKeyPressEventArgs

            Try
                If e.RunValue Then
                    MsgBox("ReturnKey, enablevalue= true, KeyCode = " & e.MyKeyCode) 'hier komme ich an

                    x = New DataGridKeyPressEventArgs(e.MyKeyCode)
                    RaiseEvent KeyPressed(Me, x)
                Else
                    MsgBox("ReturnKey, enablevalue= false")
                End If
            Catch
                MsgBox("DataGridKeyTrapTextBoxColumn.ReturnKey: " & Err.Description)
            Finally
                x = Nothing
            End Try
        End Sub

        Public Sub New()
            mKeyTrapTextBox = New KeyTrapTextBox()
            mKeyTrapTextBox.BorderStyle = BorderStyle.Fixed3D
            mKeyTrapTextBox.BackColor = Color.LightGray

            'benoetigte handler dazu
            AddHandler mKeyTrapTextBox.Leave, New EventHandler(AddressOf LeaveKeyTrapTextBox)
            AddHandler mKeyTrapTextBox.KeyPress, New KeyPressEventHandler(AddressOf TextBoxEditStarted)
            AddHandler mKeyTrapTextBox.ProcessKey, New KeyTrapTextBox.ProcessKeyHandler(AddressOf ReturnKey)
        End Sub
    End Class

    Public Class KeyTrapTextBox

        Inherits TextBox

        'Konstanten 
        Const WM_KEYDOWN As Integer = &H100
        Const WM_KEYUP As Integer = &H101
        Const WM_CHAR As Integer = &H102

        'Events
        Public Event ProcessKey As ProcessKeyHandler

        'Methods
        Public Delegate Sub ProcessKeyHandler(ByVal sender As Object, ByVal e As DataGridProcessKeyEventArgs)

        Public Overrides Function PreProcessMessage(ByRef msg As System.Windows.Forms.Message) As Boolean
            Dim keycode As Keys
            Dim e As DataGridProcessKeyEventArgs

            keycode = CType((msg.WParam.ToInt32 And Keys.KeyCode), Keys)

            'for a datagrid, we need to eat the tab key oe else its done twice
            If msg.Msg = WM_KEYDOWN And keycode = Keys.Enter Then
                MsgBox("KeyTrapTextBox: enter")

                'Event, damit das bekannt wird
                e = New DataGridProcessKeyEventArgs(True, keycode)
                RaiseEvent ProcessKey(Me, e)
                Return False
            End If
            Return MyBase.PreProcessMessage(msg)

        End Function
    End Class 


---