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