Comportamento strano stream writer

Dim f As New StreamWriter("C:\file.txt")
f.AutoFlush = False

for i as integer = 1 to n // all'incirca sono 520 iterazioni

   // estraggo i dati che mi servono e compongo la stringa
   Dim testo As String = String.Format("{0} || {1} || {2} || {3} ||", A, B, C, D)
   // Dove A, B, C, D sono variabili. A e B sono stringhe e C e D sono numeri
   f.WriteLine(testo)
   f.Flush()

next

f.close()

Dim w As StreamWriter
w = File.CreateText("C:\antani.txt")

for i=0 to 520
        w.WriteLine("questa è la riga" & i.tostring)
next

w.close

for i = 0 to n
  try
    // serie di operazioni tante delle quali vanno in eccezione
  catch

  finally
    Dim testo As String = ... // Creo un testo...
    f.WriteLine(testo)
    f.Flush()
  end try
next

f.Close()

for each p in list
  ' estraggo dati A, B, C, D
  try
    ' Faccio calcoli 
    f(A, B, C, D)
  catch
    ' Gestisco l'eccezione che mi da f
  finally
    ' Voglio scrivere sul file A, B, C, D indipendentemente dal risultato del calcolo
    sw.writeline(testo(A, B, C, D))
  end try
next

dim t as string
t=""

for each p in list
  ' estraggo dati A, B, C, D
  try
    ' Faccio calcoli 
    f(A, B, C, D)
  catch
    ' Gestisco l'eccezione che mi da f
  finally
    ' Voglio scrivere sul file A, B, C, D indipendentemente dal risultato del calcolo
    t=testo(A, B, C, D)
    debug.writeln(t,"controllo")
    sw.writeline(t)
  end try
next