Beh questa e' sicuramente una chicca ...

codice:
  If result = MsgBoxResult.Yes Then
                Dim scrivi As New System.IO.StreamWriter("C:\Users\proprietario\Documents\fileditesto.txt")
                scrivi.Write("testo sovrascritto")
                scrivi.Close()
            ElseIf result = MsgBoxResult.No Then

            End If
Direi che e' assolutamente da evitare

codice:
  If result = MsgBoxResult.Yes Then
                Dim scrivi As New System.IO.StreamWriter("C:\Users\proprietario\Documents\fileditesto.txt")
                scrivi.Write("testo sovrascritto")
                scrivi.Close()
            End If