Macro para ler arquivo txt

Gostaria de saber se alguém tem alguma macro para leitura sequencial de arquivo txt ou se possui algum material sobre esse assunto.

Agradeço.

Seria mais ou menos isso?

Function Nome()
	Dim iNumber as Integer
	Dim sLine, aFile, sMsg as String
		sMsg = ""
		aFile = "C:\Documentos\Teste.txt"
			If FileExists(aFile) Then
				iNumber = Freefile
				Open aFile For Input as iNumber
				While not eof(iNumber)
				Line Input #iNumber, sLine
					If (sLine <> "") Then
						sMsg = sMsg & sLine & " "
						'ou sMsg = sMsg & sLine & Chr(13)
						MsgBox sMsg
					End if
				Wend
				Close #iNumber
			Else
			End if
End Function

Era exatamente isso, muito obrigado!

Qual é o padrão que você utiliza para nomeação de variáveis? tem documentação?

Acesso o site: http://www.pitonyak.org