Text in Textbox kurze Zeit zeigen, dann lpöschen

Sub copy_displayed()            'kopiert sichtbare Daten in neue Datei
Application.ScreenUpdating = False
Cells.Copy
Workbooks.Add
ActiveSheet.Paste
Cells.EntireColumn.AutoFit
Windows("C & M Stammdaten_3.xls").Activate
Application.CutCopyMode = False
Application.ScreenUpdating = True
Statusmeldung           'hier wird das Makro mit der Textbox aufgerufen
End Sub

Sub Statusmeldung()
Dim TextBox1 As TextBox
Dim i As Long
Sheets("Input09").TextBox1.Value = "Data transfer completed"
For i = 1 To 1000000: Next                    'a)
Sheets("Input09").TextBox1.Value = ""          'b)
End Sub

Leider bleibt die Textbox die ganze Zeit leer. Wenn ich die Zeilen a) und b) auskommentiere
kommt nach dem Kopiervorgang wie gewünscht die Satusmeldung, wird aber natürlich nicht
wieder gelöscht.
Was mach ich denn bloß falsch?
Danke, Gruß, Ramon