Option Explicit
Dim bEditCheck As Boolean
 
Private Sub Grid1_KeyDown(...)
  bEditCheck = False
End Sub
 
Private Sub Grid1_EditKeyPress(ByVal KeyAscii As Integer)
  If KeyAscii > 31 Then bEditCheck = True
End Sub
 
Private Sub Grid1_EditKeyUp(...)
  If bEditCheck Then
    If Len(Grid1.EditText) > 79 Then Grid1.SendKeys "{TAB}"
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de