Hai provato così?

codice:
If IsDBNull(Me.DataGrid1.Item(0, 0)) Then
     messaggioErroreCelle = MsgBox("Valore mancante.", MsgBoxStyle.Critical)
End If