Private Sub FlGrVedom_KeyPress(KeyAscii As Integer)
 Select Case FlGrVedom.Col
        Case  5   'Плата без скидок
             Call GridFokus(FlGrVedom, Text46, recved,  0 )
             SendKeys Chr(KeyAscii)
        Case  7  'Плата по норме ГУ-46
             Call GridFokus(FlGrVedom, Text46, recved,  1 )
             SendKeys Chr(KeyAscii)
' ...
' ...
 End Select
End Sub

Public Sub GridFokus(FlexGrid As Object, bx As Object, recset As ADODB.Recordset, Index As Integer)
   bx(Index).Top = FlexGrid.CellTop + FlexGrid.Top
   bx(Index).Left = FlexGrid.CellLeft + FlexGrid.Left
   bx(Index).Width = FlexGrid.CellWidth
   If Len(FlexGrid.Text) <>  0  Then
      bx(Index).Text = FlexGrid.Text
   End If
   bx(Index).SelStart =  0 
   bx(Index).SelLength = Len(bx(Index).Text)
   bx(Index).Visible = True
   bx(Index).SetFocus
   Exit Sub
End Sub

Private Sub text46_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
  If KeyCode =  13  Then
    If zap_text46(Index) =  1  Then 
      If FlGrVedom.Col =  5  Then
        FlGrVedom.Col =  7 
        ElseIf FlGrVedom.Col =  7  Then
' ...
' ...
           FlGrVedom.Col =  5 
        End If
    End If
    FlGrVedom.SetFocus
  End If
End Sub

FlGrVedom.Text = Text46(Index).Text

 Private Sub FlGrVedom_Click()
    Select Case FlGrVedom.Col
        Case  5   'Номер ведомости
             Call GridFokus(FlGrVedom, Text46, recved,  0 )
             'SendKeys Chr(KeyCode)
' ...
' ...
    End Select
End Sub