charset ved en udskrivning med en StreamWriter

HEj

Jeg skal udskrive nogle data i en csv fil.
det gør jeg med en StreamWriter, men mit problem er at den viser ikke æøå ordenligt.

Nogle der ved hvordan man kan ændre charsetet så den uskriver æøå.

Jeg har prøvet med:
Dim CSVFileStream As FileStream = New FileStream("sti\fil.csv", FileMode.OpenOrCreate)
Dim CSVFile As StreamWriter = New StreamWriter(CSVFileStream, System.Text.Encoding.ASCII)

Men den virker ikke alligevel.