Private Sub sevGrid1_BeforeUpdate(ByVal nRow As Long, _
  ByVal nCol As Long, sText As String, iCancel As Integer)
 
  Dim nResult As Integer
 
  With sevGrid1
      If nCol = 5 Or nCol = 7 Or nCol = 11 Or nCol = 13 Or nCol = 5 Or nCol = _
        17 Then
         sText = CStr(Abs(CBool(sText)))
      End If
      iCancel = 0
  End With
End Sub