comparar data(dd, mm,yyyy) dentro do arquivo txt e data de hoje

[GILBERTO NOBRE]

olá pessoal estou precisando da ajuda de vocês no código abaixo, ele deveria fazer o seguinte: pegar a data que esta dentro de um arquivo txt( c:\Retorno.txt) e comparar com a data de hoje, se a data for maior faça x e se for menor faça y. mas esse script so esta comparando o dia pois se eu colocar no txt dia 01/12/2007 e a data de hoje for 28/11/2007 o script informa data invalida(comparándo só o dia) quero que esse cript entenda que o que tem no txt é data e compara com a data de hoje! me ajudem por favor!!!!!!!!

Private Sub Command1_Click()

'verificar data que foi estipulado em arquivo txt e informa se foi expirado o prog

arq = "c:\Retorno.txt"

n = FreeFile()

Open arq For Input As #n

conteúdo = Input(LOF(n), n)

Close #n

linhas = Split(conteúdo, vbCrLf)

penúltima = linhas(UBound(linhas) = 1)

últimos10caracteres = Right(penúltima, 10)

MsgBox últimos10caracteres

' labelpane1 e = a conteudo de txt

lblpane1.Caption = últimos10caracteres

'compara retorno da data contida no txt coma data atual no formato dd/mm/aaaa

If (últimos10caracteres) >= (Format(Now(), "dd/mm/yyyy")) Then

MsgBox " Data válida, você ainda tem tempo "

Else

MsgBox " Data Inválida, Tempo terminado ", vbCritical

End If

End Sub

[Graymalkin]

Transforme realmente em data (usando a função CDate()) e depois compare. Ou, se quiser realmente comparar strings, coloque a data no formato YYYYMMDD.

Abraços,

Graymalkin