Private Sub moGrid_TextEditKeyUp( _
    ByVal lRow As Long, _
    ByVal lCol As Long, _
    ByVal KeyCode As Integer, _
    ByVal Shift As Integer _
)
    Dim lNewRow As Long
    Dim lNewCol As Long
    
    lNewRow = lRow
    lNewCol = lCol
    
   
    'Check for each of the 4 arrow keys and update the row/col by adding or subtracting
    'Also check to see if we are at the edge of the grid and essentially ignore the key press
    Select Case KeyCode
        Case vbKeyUp
            If lNewRow > 1 Then
                lNewRow = lNewRow - 1
            End If
        Case vbKeyDown
            If lNewRow < moGrid.RowCount Then
                lNewRow = lNewRow + 1
            End If
        Case vbKeyLeft
            If lNewCol > 1 Then
                lNewCol = lNewCol - 1
            End If
        Case vbKeyRight
            If lNewCol < moGrid.ColCount Then
                lNewCol = lNewCol + 1
            End If
    End Select
    
    If lNewRow <> lRow Or lNewCol <> lCol Then
        'Commit the current cell edit
        Call moGrid.CommitEditCurCell
        'Move to the new cell
        Call moGrid.SetCurCell(lNewRow, lNewCol)
    End If

End Sub