[VB6] Leggere date da file di testo

[sintax_error]

Sera a tutti
Ho 2 campi testo che mostrano due date nel formato:
giorno/mese/anno ( 13/10/2005 ) e ( 14/10/2005 )
come faccio a verificare se data 2>> ( 14/10/2005 )sia maggiore di Data1 ( 13/10/2005 ) leggendole da un file .txt ??
questo è il codice che sto provando:

Dim DATA1 As Date
Dim DATA2 As Date

Private Sub Form_Load()
Dim libero As String
libero = FreeFile
Dim stringa As String
Open App.Path & "\dmm.txt" For Input As libero
Do While Not EOF(libero)
Line Input #libero, stringa
DATA1.Text = stringa
Loop
Close #libero

Dim libero1 As String
libero1 = FreeFile
Dim stringa1 As String
Open App.Path & "\dmm2.txt" For Input As libero1
Do While Not EOF(libero1)
Line Input #libero1, stringa1
'If cnt = List4.ListIndex Then 'le info che vuoi visualizzare
DATA2.Text = stringa1
Loop
Close #libero1
If DATA2.Text > DATA1.Text Then
MsgBox ("maGGIORE")
Else
MsgBox ("MINORE")
End If
End Sub

[oregon]

Il confronto tra le date lo puoi fare, ad esempio, con

If CDate(Data1.Text) > CDate(Data2.Text) Then
...

Nel tuo codice pero', la dichiarazione

Dim libero As String

dovrebbe essere

Dim libero As Integer

(lo stesso per libero1)

dato che quello e' un numero di canale.

E poi, facendo come hai fatto, tu leggi dal primo file *tutte* le date contenute nelle sue righe e *visualizzi soltanto l'ultima*.
Lo stesso fai per il secondo file.
Alla fine confronti soltanto le ultime date di entrambi i file ...
Non so se e' quello che vuoi fare ...

[sintax_error]

Grazie
senti un altro favore
se in un file txt ho esempio 1024#31/12/2005 come li recupero
singolarmente?
devo avere 1024 e 31/12/2005
Grazie per la risposta immediata

[oregon]

Se il carattere che divide i due dati e' sempre il #, puoi scrivere

Dim s() As String
s = Split(LineaDaFile, "#")

in cui la variabile LineaDaFile è tutta la linea letta dal file.
Negli elementi del vettore s, troverai i due dati giaà separati.