Try
If Me.GridDataBoundGrid1.Binder.InternalColumns(j0 + j).MappingName = "Integer" Then 'columnname
Integer.Parse(s)
End If
Me.GridDataBoundGrid1(i0 + i, j0 + j).Text = s
Catch
MessageBox.Show(String.Format("Paste-error {0},{1}", i0 + i, j0 + j + 1))
End Try