Validar celdas DataGridView

[kyha]

Hola a todos
Encontre la solucion os dejo el codigo por si alguien le interesa.

Private Sub Validar(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
'Validar Fila seleccionada
Dim drwFila As DataGridViewCell = grid1.CurrentCell()
If drwFila.ColumnIndex > 3 Then
'Si son digitos o si es la tecla borrar
If Char.IsDigit(e.KeyChar) Or (Asc(e.KeyChar) = 8) Then
e.Handled = False
Else
e.Handled = True
End If
End If
End Sub
' cuando una celda del DataGridView pasa del modo normal al de edicion, precisamente usamos este evento porqueç
' a traves de el podemos obtener la tecla que se ha pulsado, en este caso
Private Sub grid1_EditingControlShowing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlSho wingEventArgs) Handles grid1.EditingControlShowing
AddHandler e.Control.KeyPress, AddressOf Validar
End Sub