Ascii specialtegn til txtfil

Hello,
Jeg skal skrive til en txt fil i ascii. Men hver gang jeg skriver "æøå" bliver det til "?".
Her er min kode:
Dim unicodeString As String = "a b c og æ ø å # % der"
Dim ascii As New ASCIIEncoding()
Dim encodedBytes As Byte() = ascii.GetBytes(unicodeString)
Dim fs As FileStream = New FileStream(FileName, FileMode.OpenOrCreate)
fs.Write(encodedBytes, 0, encodedBytes.Length)
fs.Flush()
fs.Close()

Håber nogen kan hjælpe :)