• txtLKWNr(0...4)
  
• txtArtikelnr(0..4)
  
• txtMenge(0..4)
  
• txtGewicht(0..4)
  
• Command1-Button

<code>Private Sub Command1_Click()
  Dim LKW_KFZ As String
  Dim I As Integer
  Dim NurLKW As Boolean
  Dim PosAnhaenger As Integer
  Dim nAnhaenger As Integer
 
  NurLKW = True
  PosAnhaenger = 0
  LKW_KFZ = txtKFZNr(0).Text
 
  For I = 1 To txtKFZNr.UBound
    If txtKFZNr(I).Text <> LKW_KFZ And txtKFZNr(I).Text <> "" Then
      <font color=green>' Andere KFZ-Nr --> Anhänger</font>
      If NurLKW Then
        NurLKW = False
        PosAnhaenger = I
      End If
      nAnhaenger = nAnhaenger + 1
    End If
  Next I
 
  If NurLKW Then
    MsgBox "Nur Teile LKWS!"
  Else
    MsgBox CStr(PosAnhaenger) & " Teil(e) LKW, " & _
      CStr(nAnhaenger) & " Teil(e) Angänger."
  End If
End Sub</code>