Codigo digitado no visual studio(VB) ao copiar e colar no VSCode está apresentando uns erros !

Criado um bat para executar meu arquivo que recebe um txt
cria uns campos em xml
le a primeira linha do meu txt
exporta em xml.

estava funcionando com o visual studio (só não possuia bat executava no botão de executar)
mas ao colocar no VSCode esta dando erro !!!
alguem pode me ajudar

Imports System
Imports System.IO
Imports System.Collections
Imports System.Data
Imports System.Text

Sub Main()
    Dim strXML 
    '- A linha de código innvoca a função - DataSetDelimitado() - e passa os parâmetros :
    '- tipo de delimitação (no nosso caso uma tabulação - vbTab) e o nome do arquivo texto com sua localização
    strXML = DataSetDelimitado("&", "C:/caio/alunos.txt")
End Sub
Function DataSetDelimitado(ByVal strDelimitador , ByVal strCaminhoArquivo ) 
    'define as variáveis e objetos usados no codigo
    dim oDS = As New DataSet()
    Dim strCampos As String
    Dim oTabela As New DataTable()
    Dim oLinhas As DataRow
    Dim intContador As Int32 = 0
    'Dim oLinha As DataRow()

    'define o cabeçalho do arquivo XML
    '- As linhas de código acima mostram a flexibilidade da utilização da ADO.NET e sua integração com XML.
    '- Estou definindo a representação do meu XML através das propriedades - DataSetName e Namespace - do objeto DataSet. Ao final estou incluindo uma tabela chamada classe.
    oDS.DataSetName = "Alunos"
    oDS.Namespace = "8a Serie"
    oDS.Tables.Add("Classe")
    oDS.Tables(0).Namespace = "teste2"

    

    '- O código esta usando o objeto StreamReader para ler o arquivo texto e a seguir ir para o inicio do arquivo.
    Dim lerArquivo As New StreamReader(strCaminhoArquivo)
    'vai para o inicio do arquivo
    lerArquivo.BaseStream.Seek(0, SeekOrigin.Begin)
    'Inclui as colunas de cabeçalho do arquivo
    '- As linhas percorrem o arquivo texto e incluem os cabeçalhos(nome que identificam as colunas)
    '  na tabela  classe. A função Split é usada para separar cada coluna usando o delimitador (Tab) como parâmetro.
    'Console.WriteLine("inicio")
    'Console.WriteLine("|" + strDelimitador + "|")
    For Each strCampos In lerArquivo.ReadLine().Split(strDelimitador)
        oDS.Tables(0).Columns.Add(strCampos)
        Console.WriteLine("atributo: " + strCampos)
    Next
    Console.WriteLine("fim filhos")
    Console.ReadLine()

    'Inclui as linhas do arquivo
    '- Finalmente , instanciamos um objeto DataTable e criamos um objeto DataRow ; para a seguir preencher cada linha da tabela com os dados separados pela função Split.
    oTabela = oDS.Tables(0)

    While (lerArquivo.Peek() > -1)
        oLinhas = oTabela.NewRow()
        For Each strCampos In lerArquivo.ReadLine().Split(strDelimitador)
            oLinhas(intContador) = strCampos
            intContador = intContador + 1
        Next
        intContador = 0
        oTabela.Rows.Add(oLinhas)
    End While

    'grava o arquivo xml gerado
    oDS.WriteXml("C:/caio/alunos.xml")
    'retorna o xml para a função
    Return oDS.GetXml()
End Function

erro:
erro