Ok perfetto grazie della dritta, in pratica ho risolto così
Dim percorso As String
percorso = Environment.GetFolderPath(Environment.SpecialFolde r.ApplicationData) & "\data.csv"
Dim scrivi As New System.IO.StreamWriter(percorso)
dove Environment.SpecialFolder.ApplicationData mi trova il percorso della cartella application data
Poi in fase di installazione creerò una cartella apposita all'interno di application data