'Suchbegriffe deklarieren
Dim SuchBegriffe() As String = {"Artikelbezeichnung:", "Artikelnummer:"}

'Den Suchbegriffen die richtigen Textboxen zuweisen
Dim BegriffTextBoxes() As String = {txtbArtikelBezeichnung.Text, _
  txtbArtikelNummer}

'Der Textbox den Wert überweisen
BegriffTextBoxes(i) = ZeichenSatz

Mit freundlichen Gr??en
D.J