Пытаюсь внести в Коллекцию Speicher новые данные путём открытия текстого файла - VB

Формулировка задачи:

Значит так: в нижестоящем коде я пытаюсь внести в Коллекцию Speicher новые данные путём открытия текстого файла 121.txt. В этом файле у меня три числа : 121 122 123 Вначале вроде всё идёт нормально, но при просмотре содержимого Колекции обнаруживается что Колекция содержит вместо 121,122 и 123, три числа 123. Почему?? ктото может объяснить?

Private Sub cmdLaden_Click()
    Dim f As Integer
    Dim t As String
    Dim UbPr As New clsText 'clsText имя класса
    f = FreeFile
    Open App.Path & '121.txt' For Input As f
    Do While Not EOF(f)
    Line Input #f, t
    UbPr.Ubung = t  'Ubung - свойство в классе,
    Speicher.Add UbPr 
    Loop
    Close #f
End Sub

Решение задачи: «Пытаюсь внести в Коллекцию Speicher новые данные путём открытия текстого файла»

textual
                            Листинг программы 
                        

                            Private Sub cmdLaden_Click()
Dim f As Integer
Dim t As String
'Dim UbPr As New clsText 'clsText имя класса
f = FreeFile
Open App.Path & '121.txt' For Input As f
Do While Not EOF(f)
Line Input #f, t
'UbPr.Ubung = t 'Ubung - свойство в классе,
Speicher.Add t
Loop
Close #f
End Sub
                        