problemas con fecha

Hola grupo!!
Tengo una hoja de calculo de donde tengo que generar mensualmente un fichero
plano con los datos contenidos en algunas de las columnas de la hoja. Uno de
los campos es la fecha de carga que sirve para identificar los registros
correspondientes a cada mes (columna J) y los valores que tiene son por
ejemplo 28/08/2009., 28/09/2009.. El caso es que no me funciona ya que no
entre en el bucle ya que al comparar la fecha del registro con la fecha que
le introduzco no las considera a ambas como fecha. He probado con la función
format para la variable fecha, así como a definirla como string.
Como lo soluciono?
Gracias

Private Sub CommandButton1_Click()

Dim fecha As Date
Dim I As Integer

Open "c:\kk\f.txt" For Output As #1

fecha = InputBox("Introduce la Fecha de Liquidacion (27/mm/aaaa): ")
I = 2
Do While Range("J" & I) = fecha
Print #1, Range("A" & I) & Range("B" & I) & Range("H" & I)
I = I + 1
Loop

Close #1

End Sub