Citire date din fisier .TXT

Buna ziua.
As dori sa citesc date dintr-ul fisier .txt cu VB6 astfel: in fisierul .txt datele sunt scrise in felul urmator: "1234567890ABCDEF".
Ma intereseaza sa pot face o sintaxa care sa citeasca aceste caractere unul cate unul.
In acest moment pot citi fisierul si pot afisa continutul intr-un MsgBox sau intr-un Text1.text.
Practic, am o matrice de tipul led(index) si as vrea sa citesc fisierul si sa pun astfel:

for index=0 to 16
"citeste din fisierul .txt pozitia 1" = led(index)
next index.

Va multumesc pentru ajutor.

Ca principiu nu-i eficient sa citesti din fisier caracter cu caracter. Freci discul aiurea. Dar se poate.
Asa ca citeste in blocuri sau tot daca-i mic si parcurge sirul de caractere, ai functii sa extragi cate un caracter dintr-un sir.

Edited by neagu_laurentiu, 28 February 2013 - 14:41.

Uite aici: http://tinyurl.com/bs55fm5 .

Quote

Foarte bine, recomand un String
astfel poti foarte usor manipula cu Left, Right, sau Mid orice bucata de "continut"

Edited by MarianG, 28 February 2013 - 16:04.

Dim sir$
'presupunem ca deja am atribuit variabilei sir valoarea din fisierul .txt direct(LineInput) sau prin intermediul unui control(textbox) sa zicem
'Scenariul 1
'presupunem ca trebuie analizate toate valorile din sir (una cate una asa cum ai spus)
'functie de aceste valori cineva sau ceva face ceva
Dim Temp
For i = 1 To Len(sir)
	Temp = Mid$(sir, i, 1)
	'conditii functie de pozitia in sir
	If i = 1 Then
		'face ceva functie de valoare
		If Temp = "3" Then 'face ceva End If
		If Temp = "..." Then '... End If
	End If
	'...
	If i = 16 Then
		'...
	End If
Next
'Scenariul 2
'presupunem ca te intereseaza doar valoarea pozitiei 7 din sir
Temp = Mid$(sir, 7, 1)
'presupunem ca te intereseaza doat daca pozitia a 7-a are valoarea x
If Mid$(sir, 7, 1) = X Then
	'face ceva
End If
'restul sunt combinatii intre cele 2 scenarii

Am reusit, cu Mid.
Multumesc