Private Sub sevGrid1_AfterUpdate(ByVal nRow As Long, ByVal nCol As Long, ByVal _
  sText As String)
 Dim sText1 As Integer
 Dim std
   With sevGrid1
   If nCol = 1 Or nCol = 2 Then
   sText = .Text(nRow, 2)
   std = Val(.Text(nRow, 3))
   sText1 = Val(sText)
   .CellText(4) = sText1 * std    
   End If
   End With
 
End Sub