Perché non provi così:

If Len(Campo_Data) = 8 And isNumeric(Campo_Data) Then

Campo_Data = Format(Campo_Data, "&&/&&/&&&&")
Else
altro codice
End If

In questo modo nell'evento Else (cioé nel caso in cui il valore non sia numerico) puoi creare l'algoritmo per leggere il valore della data per esteso (20 giugno 2002).

Ciao