Vendo se celula contém um dado do tipo time

Opa galera estou aqui para tirar uma duvida de uma macro que eu tenho.
A minha macro faz a seguinte função de testar o tipo de dado que há dentro da celula,
para assim criar no formato especifico deste dado.

Ex.:

Código:

If IsDate(Cells(RowNum, ColNum).Value) Then
          FormChk = Format(Cells(RowNum, ColNum).Value, "dd/mm/yyyy")

Mais eu gostaria de fazer um teste para ver se o dado que tem dentro da celula é do
tipo "TIME" mais não estou conseguindo encontrar uma função para ver se o tipo da celula
é "TIME", como esta descrito no meu exemplo acima, com a função "IsDate".

Desde já agradeço a todos, pela colaboração.

Boa noite!!!

Este exemplo te ajuda..caso contraerio poste sua planilha modelo..

Sub ss1()
'As constants the following will not update
[a1] = Int(Now) 'date
[a2] = Now 'date and time
[a3] = Date 'date
[a4] = Date + Time 'same as now
'As Worksheet Functions the following will update
[a5] = "=Today()" 'current date into worksheet formula
[a6] = "=now()" 'current date
[a7] = "=now() - Today()" 'current time when recalculated
[a7].NumberFormat = "hh:mm"
[a8] = "=MOD(NOW(),1)" 'current time when recalculated
[a8].NumberFormat = "hh:mm"
End Sub

Código: