vb.net 如何存成ANSI格式的文本

目前以这样的方式，存成的格式为
Dim sr As New IO.StreamWriter(SaveFileDialog1.FileName)
sr.WriteLine(tmpStr)
sr.Close()

System.IO.File.WriteAllText("1.txt", "some thing 123", System.Text.Encoding ASCII)