Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
  With MSFlexGrid1
    Select Case KeyAscii
      Case vbKeyBack
        If Len(.Text) > 0 Then .Text = Left$(.Text, Len(.Text) - 1)
      Case Is >= 32
        .Text = .Text & Chr$(KeyAscii)
    End Select
  End With
End Sub

Gruss,

Zardoz