[VB.NET2005+XML] XMLのencodingがShift_JISが読み込めない

Public Sub LoadXML(ByVal XMLStream As IO.MemoryStream)

	Dim settings As XmlReaderSettings = New XmlReaderSettings
	Dim Reader As XmlReader

	' ファイル取り込み
	settings.ConformanceLevel = ConformanceLevel.Fragment
	settings.IgnoreWhitespace = True
	settings.IgnoreComments = True
	Reader = XmlTextReader.Create(XMLStream, settings)

	MsgBox("LoadXML")

	' XML解析
	While Reader.Read
		If Reader.NodeType = XmlNodeType.Element Then
			Select Case Reader.Name
				Case "Application"
					MsgBox("Shift_JISの時ここまでこない")
					AppSetting(Reader)
			End Select
		End If
	End While
End Sub

<?xml version="1.0" encoding="Shift_JIS"?>
<Application>
  <アイテム1>あいうえお</アイテム1>
  <どれみ>
    <アイテム2>かきくけこ</アイテム2>
    <ふぁそら>
      <アイテム3>さしすせそ</アイテム3>
      <しど>
        <アイテム4>たちつてと</アイテム4>
      </しど>
      <アイテム5>なにぬねの</アイテム5>
    </ふぁそら>
    <アイテム6>はひふへほ</アイテム6>
  </どれみ>
  <アイテム7>まみむめも</アイテム7>
</Application>