Problem fichier vb.Net

Bonjour, pourriez vous me dire comment faire comment remplacer le fichier si il existe déjà car pour l'instant je ne peux que mettre un messagebox .
Imports System.IO

Public Class Form2


Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dialogSAve As New SaveFileDialog

With dialogSAve
.InitialDirectory = "C:/Users"

.Title = "Choisir une fichier"

.Filter = "Fichiers Gen(*.Gen)|*.Gen"

.ShowDialog()

'Retour après la fermeture de la boite de dialogue

If Err.Number = 32755 Then Exit Sub

If Len(.FileName) = 0 Then Exit Sub

Dim sFile As String = .FileName
Try
Dim SW As StreamWriter = File.CreateText(sFile)
SW.WriteLine(TextBox1.Text)
SW.Close()

Catch ex As UnauthorizedAccessException
Finally
MessageBox.Show("Le fichier existe déjà !!!!") 'ici
End Try




Microsoft.VisualBasic.SetAttr(sFile, FileAttribute.System)
End With


End Sub





End Class