Gostaria de ler um arquivo txt através do VBA.
Todos os códigos que encontrei na internet fazem um loop no arquivo(para pegar todas as linhas suponho eu), mas eu queria pegar apenas a primeira linha de forma mais simples e colocar numa variável.
Eis meu código atual, que pega o texto porém não estou achando legal:
Dim conexao As String
Dim ReadData As String
Open "C:\Sistema\Conexao.txt" For Input As #1
Do Until EOF(1)
Line Input #1, ReadData
conexao = ReadData
If Not Left(ReadData, 1) = "*" Then
End If
Loop
Close #1