codice:
 If System.IO.File.Exists("C:\Users\proprietario\Documents\fileditesto.txt") Then

            Dim result As MsgBoxResult

            result = MessageBox.Show("Il file esiste, Sovrascriverlo?", "attenzione", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation)

            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
        Else
            Dim scrivi As New System.IO.StreamWriter("C:\Users\proprietario\Documents\fileditesto.txt")
            scrivi.Write("Prova")
            scrivi.Close()
        End If
così dovrebbe andare..ho implementato anche la chicca del messagebox(giusto x fare un pò piu di scena )

per qlcs altro chiedi pure qui..ciaoo