Visual Basic.NET - Control de errores en una propiedad

Private Sub txtProvincia_Validating(sender As Object, e As CancelEventArgs) Handles txtProvincia.Validating

    objProv.Provincia = txtProvincia.Text

    txtProvincia.Text = objProv.Provincia

End Sub

Public Class IdProv  '**************************** Provincias

    Private pIdProv As String

    Private pProvincia As String

    Public ReadOnly InstanceId As Integer = 1

    Private Shared NextInstanceID As Integer = 1

    Public Shared ClassInstanceCount As Long = 0

    Public Event DataError(ByVal sErrorMsg As String)

    Public Sub New(ByVal IdProv As String, ByVal Provincia As String)

        InstanceId = NextInstanceID

        NextInstanceID += 1

        ClassInstanceCount += 1

        Me.IdProv = IdProv

        Me.Provincia = Provincia

    End Sub

    Public Property IdProv() As String

        Get

            Return pIdProv

        End Get

        Set(value As String)

            pIdProv = value

        End Set

    End Property

    Public Property Provincia As String

        Get

            Return pProvincia

        End Get

        Set(value As String)

            If Len(value) > 0 Then

                pProvincia = StrConv(value, VbStrConv.ProperCase)

            Else

                RaiseEvent DataError("El nombre de la provincia es obligatoria")

            End If

        End Set

    End Property

    Protected Overrides Sub finalize()

        MyBase.Finalize()

        ClassInstanceCount -= 1

    End Sub

End Class