るしぇさん、ありがとうございます。 
 
順番を入れ替えたら機能しました。 
SaveFileDialog1.Filter = "txt files|*.txt" 
SaveFileDialog1.DefaultExt = "txt" 
If SaveFileDialog1.ShowDialog() =DialogResult.OK Then 
 
３番目の問題もクリックしたら修正され、解決しました。 
教えていただいた内容はちょっと理解できないのですが、ご丁寧にありがとうございました。