Nullifying blank cells

imports DevExpress.XtraGrid.Views.Grid
    Private Sub GridView1_ValidatingEditor(ByVal sender As System.Object, ByVal e As DevExpress.XtraEditors.Controls.BaseContainerValidateEditorEventArgs) Handles GridView1.ValidatingEditor
        Dim view As GridView = CType(sender, GridView)
        If view.FocusedColumn.FieldName = <numeric data field name> Then
            If Not e.Value Is Nothing AndAlso e.Value = "" Then
                e.Value = DBNull.Value
            End If
        End If
    End Sub

Me.RepositoryItemTextEdit1.Mask.EditMask = "\d*"
Me.RepositoryItemTextEdit1.Mask.MaskType = DevExpress.XtraEditors.Mask.MaskType.RegEx
Me.RepositoryItemTextEdit1.Mask.UseMaskAsDisplayFormat = True