[Resolvido]Comparar se é Texto ou Data no import de Dados

Pessoal,
boa tarde!

Estou importando alguns dados do excel para o Access e preciso extrair do campo "data de implantação" apenas o mês para salvar ele em outro campo conforme o código abaixo:

Código:


 'Inclui Registros na tabela temporária
       For i = 2 To oSelect.Rows.Count
            oRS.AddNew
               oRS.Fields(0) = oSelect.Range("A" & i)  'Descrição
               oRS.Fields(1) = oSelect.Range("B" & i)  'Cod_PCubo
               oRS.Fields(2) = oSelect.Range("D" & i)  'Eixo
               oRS.Fields(3) = oSelect.Range("F" & i)  'IPM_Responsável
               oRS.Fields(4) = oSelect.Range("G" & i)  'Data de Implantação
               oRS.Fields(5) = MonthName(Month((oSelect.Range("G" & i)))) 'Mes de Implantação
               oRS.Fields(7) = oSelect.Range("H" & i)  'Status
               oRS.Fields(14) = oSelect.Range("L" & i) 'CM_Infra
               oRS.Fields(15) = oSelect.Range("M" & i) 'SM Santander
               oRS.Fields(16) = oSelect.Range("N" & i) 'Detalhes do Projeto
               oRS.Fields(17) = oSelect.Range("P" & i) 'Gerente Executivo ISBAN
               oRS.Fields(18) = oSelect.Range("Q" & i) 'Lider Técnico ISBAN
               oRS.Fields(19) = oSelect.Range("T" & i) 'Sigla Nova
            oRS.Update
       Next i


O codigo funciona, porém, neste campo "Data de implantação", pode ter ao invés de "data" uma informação como "A definir" e na hora do importe aparece um erro "Tipos Incompativeis".

Como posso ajustar para que se caso apareca texto, ele deixe o campo vazio e continue com o importe ?

Muito Obrigado.

Pessoal.

Resolvido com a codificação abaixo:

Código:


If Not (IsDate(oRS.Fields(4))) Then
                          oRS.Fields(5) = ""
                          oRS.Fields(6) = ""
                    Else
                          oRS.Fields(5) = MonthName(Month((oRS.Fields(4)))) 'Adiciona o Mês
                          oRS.Fields(6) = Year(oRS.Fields(4)) 'Adiciona o Ano
                    End If


.