Imports DDTek.XmlConverter

Module ConverterOne
    Sub Main(ByVal args() As String)
        Dim factory As ConverterFactory = New ConverterFactory()
        Dim toXml As ConvertToXml = factory.CreateConvertToXml("converter:EDI")
        toXml.Convert(New UriSource(args(0)), New UriResult(args(1)))
        System.Console.WriteLine(args(0) + " --> " + args(1))
    End Sub
End Module