Private Type Gegenstaende 
Name As String 
Preis As Integer 
End Type 
 
Dim Feld(1 To 5) As Gegenstaende 
 
Private Sub cmdEintragen_Click() 
Dim Name As String 
Dim Preis As Integer 
 
Dim index As Integer 
index = txtNr.Text 
 
If ((index > 0) And (index < 6)) Then 
Name = txtName.Text 
Preis = txtPreis.Text 
 
Feld(index).Name = Name 
Feld(index).Preis = Preis 
 
txtName.Text = "" 
txtPreis.Text = "" 
 
Else: lblFehler.Caption = "Bitte geben Sie eine gültige Nummer zwischen 1 und 5" & _
  "ein" 
 
End If 
 
 
End Sub 
 
Private Sub cmdAusgabe_Click() 
 
For index = 1 To 5 
lblAusgabeName.Caption = lblAusgabeName.Caption & Feld(index).Name & vbCrLf 
Next index 
 
For index = 1 To 5 
lblAusgabePreis.Caption = lblAusgabePreis.Caption & Feld(index).Preis & vbCrLf 
Next index