Eu faria:Para lêr apenas a primeira linha, não utilize o ciclo Do
.
Dim conexao As String
Open "C:\Sistema\Conexao.txt" For Input Shared As #1: Close 1 'Dá erro se o ficheiro não existir
Open "C:\Sistema\Conexao.txt" For Binary Access Read Shared As #1
conexao = String(LOF(#1), 0)
Get #1, , conexao
Close #1
OuContudo, melhorparece-me que este código faz alguma validação para procurar a primeira linha começada (ou não) por "*"
. E sendo este o caso, usaria uma função:o ciclo é necessário.
Function LerFicheiro(ByVal Nome As String) As String
Dim n As Integer
n = FreeFile(1)
Open Nome For Input Shared As n: Close n
Open Nome For Binary Access Read Shared As n
LerFicheiro = String(LOF(n), 0)
Get n, , LerFicheiro
Close n
End Function