Trucos de ASP.NET Función que convierte una cadena XML en un DataTable

Private Sub Load()
Dim ws As New namespace.TuServicio

Dim dt As DataTable = StrXml2Table(ws.TuMetodoQueDevuelveXML())
' ....
End Sub
Public Function StrXml2Table(ByVal StrXML As String) As DataTable
Dim ms As MemoryStream
Try
Dim buf() As Byte
Dim ds As New DataSet

buf = System.Text.UTF8Encoding.ASCII.GetBytes(StrXML)
ms = New MemoryStream(buf)

ds.ReadXml(ms)
Return ds.Tables(0)
Catch ex As Exception
' Hacer algo
Finally
If Not ms Is Nothing Then
ms.Close()
End If
End Try
End Function