[The DeViL's]

allora se il codice che hai postato sta in un bottone devi mettere fuori la dichiarazione di val: Dim val As Integer = 1 (mettila come variabile globale)

e devi lasciare bel bottone solo qst:

While (a > 0)
s.WriteLine(Me.q1.Text)
s.WriteLine(Me.d1.Text)
s.WriteLine(Me.p1.Text)
s.WriteLine(Me.iva1.Text)
s.WriteLine(Me.tniva1.Text)
s.WriteLine(Me.tiva1.Text)
a = a + 1
val = val + 1
End While

cosi val aumenta di 1 all'infinito e a lo stesso...fornisci + info sennò non riesco ad aiutarti per bene