Public Function Übergabe(varFeld1 As Variant, varFeld2 As Variant, varFeld3 As _
  Variant)
 
 
lstAnzeige.ListIndex = intC
intD = ((9 * intC) - 8)
 
intDatei = FreeFile
Open "D:\Memory2.txt" For Input As #intDatei
 
intZähler = 1
 
   Do While Not EOF(intDatei)
   ReDim Preserve strarÜberschriftAnzeigen(intZähler)
   Input #intDatei, strarÜberschriftAnzeigen(intZähler)
   intZähler = intZähler + 1
   Loop
 
   strarÜberschriftAnzeigen(intD) = varFeld1
   strarÜberschriftAnzeigen(intD + 1) = varFeld2
   strarÜberschriftAnzeigen(intD + 2) = varFeld3
 
 
End Function