Public Class cArtikel
    Private cArtNummer As Integer
    Private cArtGruppe As Integer
    ' Hier kämen dann noch weitere Daten hinzu 
 
    Public Property ArtNummer As Integer
        Get
            Return cArtNummer
        End Get
        Set(value As Integer)
            If value = 0 Or value > 999999 Then
                ' Fehlerhafter Wert
                MsgBox("Artikelnummer fehlerhaft. Gültige Werte 1 - 999999", _
                  MsgBoxStyle.Critical, "Fehler")
                cArtNummer = 0
            Else
                cArtNummer = value
            End If
        End Set
    End Property
 
End Class

        Dim myArtikel As New cArtikel
        myArtikel.ArtNummer = 1234567 ' später natürlich kein fester Wert 
        ' sondern aus Eingabefeld

    Public Shared Sub ValidateArtName(ByVal ArtName As String, ctrl As Control, _
      erp As ErrorProvider)
        If ArtName = "" Or ArtName.Length > 30 Then
            erp.SetError(ctrl, "Name fehlt oder ist zu lang")
        Else 
            erp.SetError(ctrl, "")
        End If
    End Sub

    Private Sub tbxName2_TextChanged(sender As System.Object, e As _
      System.EventArgs) Handles tbxName2.TextChanged
        cArtikel.ValidateArtName(tbxName2.Text, Me.ActiveControl, _
        ErrorProvider1)
    End Sub