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