Как перезаписать .txt файл?

      Dim x As Integer = Me.Location.X ' координата Х левого верхнего угла формы
        Dim y As Integer = Me.Location.Y ' координата Y левого верхнего угла формы

        Dim g As Graphics = Me.CreateGraphics
        Dim bmp As Bitmap = New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height)
        g = Graphics.FromImage(bmp)
        g.CopyFromScreen(Me.Location.X + 10, Me.Location.Y + 30, 0, 0, New Size(Me.ClientSize.Width, Me.ClientSize.Height))
        bmp.Save(Application.StartupPath & "\Screen.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) 'Сохраняем в файл
       ' PictureBox1.Image = bmp' выводим в PictureBox

Dim g As Graphics = Me.CreateGraphics
        Dim bmp As Bitmap = New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height)
        g = Graphics.FromImage(bmp)
        g.CopyFromScreen(Me.Location.X + 10, Me.Location.Y + 30, 0, 0, New Size(Me.ClientSize.Width, Me.ClientSize.Height)) 
        PictureBox27.Image = bmp ' выводим скрин в PictureBox но можем и не выводить 
 
        Dim sfd As SaveFileDialog = New SaveFileDialog   'спрашиваем куда сохранять фото
        sfd.Filter = "фото|*.Jpeg"
        If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then                    
            bmp.Save(sfd.FileName, System.Drawing.Imaging.ImageFormat.Jpeg) 'Сохраняем в файл
        End If

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dir As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\001.jpg"  'Выводим файл на рабочий стол
        ScreenControl(Me, dir) 'здесь вместо "Me" можно указать имя любого контрола
    End Sub
    Private Sub ScreenControl(ByVal ctr As Control, ByVal pth As String)
        Using bmp As New Bitmap(ctr.Width, ctr.Height)
            ctr.DrawToBitmap(bmp, New Rectangle(0, 0, ctr.Width, ctr.Height))
            bmp.Save(pth, Imaging.ImageFormat.Jpeg)
        End Using
    End Sub

Dim Dir As SaveFileDialog = New SaveFileDialog   'спрашиваем куда сохранять фото
        Dir.Filter = "фото|*.Jpeg"
        If Dir.ShowDialog = Windows.Forms.DialogResult.OK Then
            ScreenControl(Me, Dir) 'здесь вместо "Me" можно указать имя любого контрола
        End If

Dir.FileName

            ScreenControl(Me, Dir.FileName)

Dim saveDialog As New SaveFileDialog
saveDialog.Filter = "фото|*.Jpeg"
If saveDialog.ShowDialog = DialogResult.OK Then 'спрашиваем куда сохранять фото
    ScreenControl(Me, saveDialog.FileName)
End If