VB Mehrere Fragen zum Thema suchen, Variabel und Ausgabe

Hallo zusammen ich programmiere mein erstes Programm...

Nun haben sich doch einige Fragen angesammelt:

Die Erste und wichtigste Frage:

In dem Programm lade ich Dateien herunter, ob der Download erfolgreich war wird an ein Textfeld übergeben... Das ganze wird mit einem Loop wiederholt bis die List zu ende ist. in der liste wird lediglich der Name der Datei gespeichert.
Klappt soweit hervoragend. Nur ein Problem ergibt sich und zwar werden die Angaben erst am Ende des Loops an die Textbox weitergegeben, sprich sind es einige Dateien die er herunterläd sieht man garnichts bis alle unten sind und dann wird gleich der komplette Text angezeigt...

Ist das normal oder ein Programmierfehler meinerseits? Falls normal wie kann ich aus dem Loop ausbrechen um die Ausgaben wärend der Laufzeit zu machen?


Die zweite Frage:

Ich komm mit dem Suchen inerhalb einer Datei nicht klar...
Funktioniert es mit FindStr?
Ich möchte ein bestimmtes Wort in einer Datei suchen und wenn es gefunden wird die ganze Zeile in der sich das Wort befindet an eine weitere Datei übergeben...


Die dritte und blödste Frage ;) :

Kann ich die Dos-Variabeln wie %HOMEPATH% nicht nutzen? Hat bei mir auf jeden Fall so nicht geklappt...


MfG und Thx im Voraus

Copro

Option Explicit

Private Sub CommandButton1_Click()
    Dim X As Integer
    Dim Buffer As String
    
    X = 1
    Do
      Buffer = Environ$(X)
      If Len(Buffer) <> 0 Then
        ListBox1.AddItem Buffer
        X = X + 1
      Else
        Exit Do
      End If
    Loop
End Sub

Option Explicit

Private Declare Function GetEnvironmentVariable Lib _
        "kernel32.dll" Alias "GetEnvironmentVariableA" (ByVal _  
        lpName As String, ByVal lpBuffer As String, ByVal _
        nSize As Long) As Long

Private Declare Function SetEnvironmentVariable Lib _
        "kernel32.dll" Alias "SetEnvironmentVariableA" (ByVal _  
        lpName As String, ByVal lpValue As String) As Long

Private Sub Command1_Click()
    Call SetEnvironmentVariable("HALLO", "Wert von Hallo")  
    Command2.Enabled = True
End Sub

Private Sub Command2_Click()
    Dim Buffer As String
    Dim l As Long
    
    l = 256
    Buffer = String$(l, Chr$(0))
    
    l = GetEnvironmentVariable("HALLO", Buffer, l)  
    
    If l <> 0 Then
        Buffer = Left(Buffer, l)
        MsgBox ("Umgebungsvariable HALLO =" & Chr$(34) _  
               & Buffer & Chr$(34))
    End If
End Sub