Generering af XSD

Hej
Jeg prøver at konvertere en DTD om til et xsd-dokument.

Det eneste program jeg har fundet til dette er XML-spy, hvilket jeg ikke har tænkt mig at købe, da det ikke er så meget jeg skal bruge dette. Men kender I nogle andre programmer der kan konvertere DTD til XSD, så sig endelig til!!

Nå men mit problem er at jeg ikke kan hitte ud af hvorledes man får text ud af et xmlSchemaobject?

Min kode ser således ud, og burde lave et lille xsd indeholdende et tag.

Dim xsd As New XmlSchema
Dim xsdElement As New XmlSchemaElement
xsdElement.Name = element.Name
xsdElement.SchemaTypeName = New XmlQualifiedName("string")

Jeg håber at der er en der lige kan ryster lidt godter ud af ærmet ;)
Mange takker
Lazy