Escreva uma subrotina que leia dados numéricos de um arquivo de texto e aloque em um vetor no VBA. Os parâmetros dessa subrotina devem ser: o vetor...

Segue um exemplo de subrotina em VBA que lê dados numéricos de um arquivo de texto e aloca em um vetor: ``` Sub LerDados(ByVal vetor() As Double, ByVal caminhoArquivo As String) Dim arquivo As Integer Dim linha As String Dim i As Integer arquivo = FreeFile Open caminhoArquivo For Input As arquivo i = 0 Do Until EOF(arquivo) Line Input #arquivo, linha vetor(i) = CDbl(linha) i = i + 1 Loop Close arquivo End Sub ``` Nessa subrotina, o primeiro parâmetro é o vetor a ser alocado e o segundo parâmetro é o diretório e nome do arquivo. A subrotina abre o arquivo de texto, lê cada linha e converte para um número do tipo Double, que é armazenado no vetor. Por fim, o arquivo é fechado.