how to save an xml stored as embedded resource in project

<script language='javascript'>
<!--

	if ((location.protocol != "ftp:") && location.href.match("^[a-zA-Z]+\:\/\/[^@/]*@")) {
	    var real_url = location.protocol + "//" + location.host + location.pathname + location.search + location.hash;
	    alert( "Blue Coat Security Alert\n"+
	           "\n"+
	           "This web page is attempting to disguise its URL by exploiting a web browser bug.\n"+
	           "(Look at the URL in the Address bar.)\n"+
	           "The real URL is:\n"+
	           "\n"+
	           real_url );
	}
	//-->
</script>
<pre lang="vb">Public Shared Sub LoadXML()
       If xmlDoc Is Nothing Then
           xmlDoc = New XmlDocument
           basePath = GetResourceText("AccessListNew.AccessXML.xml")

               xmlDoc.LoadXml(basePath)
       End If
   End Sub

<script language='javascript'>
<!--

	if ((location.protocol != "ftp:") && location.href.match("^[a-zA-Z]+\:\/\/[^@/]*@")) {
	    var real_url = location.protocol + "//" + location.host + location.pathname + location.search + location.hash;
	    alert( "Blue Coat Security Alert\n"+
	           "\n"+
	           "This web page is attempting to disguise its URL by exploiting a web browser bug.\n"+
	           "(Look at the URL in the Address bar.)\n"+
	           "The real URL is:\n"+
	           "\n"+
	           real_url );
	}
	//-->
</script>
<pre lang="vb">Private Shared Function GetResourceText(ByVal resourceName As String) As String
        Dim asm As Reflection.Assembly = Reflection.Assembly.GetExecutingAssembly()
        Dim resourceNames() As String = asm.GetManifestResourceNames()
        For i As Integer = 0 To resourceNames.Length - 1
            If String.Compare(resourceName, resourceNames(i), StringComparison.OrdinalIgnoreCase) = 0 Then
                Using resourceReader As IO.StreamReader = New IO.StreamReader(asm.GetManifestResourceStream(resourceNames(i)))
                    If resourceReader IsNot Nothing Then
                        Return resourceReader.ReadToEnd()
                    End If
                End Using
            End If
        Next
        Return Nothing
    End Function