Esportare risorse visual basic

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim percorso As String
        SaveFileDialog1.FileName = "nomefile.estensione"
        SaveFileDialog1.ShowDialog()
        percorso = SaveFileDialog1.FileName
        System.IO.File.WriteAllBytes(percorso, My.Resources.nome_file_risorse)
    End Sub