questo è il pezzo che mi dà' problemi...

codice:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 risultato = "Resoconto soldi "
 If SaveFileDialog1.ShowDialog = DialogResult.OK Then My.Computer.FileSystem.WriteAllText(SaveFileDialog1.FileName, risultato, True) 
End If 
End Sub