Visual Basic 6 - Importare variabili da un TxT esterno

Ragazzi sto creando un programmino e serve ke questo sia in grano di caricare delle variabili da un file di testo faccio un esempio per farvi capire

adesso per definire queste variabili ho messo nel form load questo:

variabile1 = 6166
variabile2 = 65565
variabile3 = 3265

dato ke i valori delle variabili li devo cambiare abbastanza spesso ogni volta mi tocca riaprire il progetto modificare le variabili nel forma lod e ricreare l'exe

non c'è un modo ivece per far si che i valori delle variabili vengano caricati da un file di config (un normale txt) esterno automaticamente quando l'eseguibile viene aperto??

Penso basti fare una cosa tipo:

Dim I As Integer
Dim var(1 To 100) As String
Dim variabile1
Dim variabile2
Dim variabile3
Private Sub Command1_Click()
Open App.Path & "\Var.txt" For Input As #1
Do
I = I + 1
Line Input #1, var(I)
Loop Until EOF(1) = True
Close #1

variabile1 = var(1)
variabile2 = var(2)
variabile3 = var(3)
End Sub

var(1) corrisponde alla prima riga e così via...Quindi dovrai mettere i numeri tipo:
1231
123144
44563234
123

mi dice prevista End Sub selezionandomi il "Dim" prima di var (1 to 100) as ...

eppure alla fine c'è end sub!

EDIT: niente risolto nn avevo notato il command ke nn serviva.....

Adesso quando avvio l'applicaione mi dà type mismatch

EDIT2:
risolto anke questo XD

ma se oltre al valore della variabile vorrei mettere qualkosaltro nella riga del txt cosa dovrei fare ??

cioè ad esempio al posto di mettere il numer cosi

6565
656
623

vorrei fare tipo così

6565 <Valore prima variabile
656 <Valore seconda variabile
623 <Valore terza variabie

ho provato a farlo facendo precedere una apostrovo ma nn và

credo di non capire....

forse potrebbe fare al caso tuo la funzione split:

dim unnomequalsiasi() as string
unnomequalsiasi = split(stingadasplittare, "simbolopercuisplittare")

split?? scusa mi puoi spiegare a cosa serve??

la funzione split ti permette di dividere una stringa in tante altre a seconda del carattere cercato.

dim parole() as string il vettore deve essere dinamico

parole=split("a;d;g;h",";"

a questo punto il vettore parole è pieno

parole(0)=a
parole(1)=d
parole(2)=g
parole(3)=h

spero di essere stato chiaro

nn ho capito poi tanto bene ma cmq nn credo ke questa funzione mi serva per fare quello ke ho detto XD