Text1.Text = "" не очищает Text1 - VB

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

Пример из учебника. Обычное считывание текстового файла. Автор демонстрирует выполнение одного и того же действия двумя различающимися кодами.

Dim f As Long
Dim mytext As String
Dim allmytext As String
 
Private Sub Command1_Click()
Text1.Text = ""
f = FreeFile
Open App.Path & "\sun.txt" For Input As #f
Do Until EOF(f)
Line Input #f, mytext
Text1.Text = Text1.Text & mytext & vbCrLf
Loop
Close #f
End Sub
 
Private Sub Command2_Click()
f = FreeFile
Open App.Path & "\sun.txt" For Input As #f
Do Until EOF(f)
mytext = Input(1, #f)
allmytext = allmytext & mytext
Loop
Close #f
Text1.Text = allmytext
End Sub

Автор обращает внимание на строку

Text1.Text = ""

как необходимую для очистки Text1. Действительно, так и работает! При многократном нажатии на Command1, текст отображен без повторений. Любопытства ради я вставил эту строку и в Command2_click. И глухо! Сколько раз мы ткнем в Command2 - столько же раз текст добавится в Text1! То есть, очистки не происходит! В чем дело? Растолкуйте тупорылой обезьяне!)

Решение задачи: «Text1.Text = "" не очищает Text1»

textual
                            Листинг программы 
                        
                            allmytext="" или allmytext=vbNullString