Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 8 If Len(Me.MSFlexGrid1) > 0 Then Me.MSFlexGrid1 = Left(Me.MSFlexGrid1, Len(Me.MSFlexGrid1) - 1) End If Case Else Me.MSFlexGrid1 = Me.MSFlexGrid1 & Chr(KeyAscii) End Select End Sub