Bom dia pessoal, estou com uma grande dúvida.
Tenho um formulário no qual há dois campos Data Inicio(txtDT_Inicio) e Data Término(txtDT_Termino).

Preciso fazer a comparação dessas duas datas, para caso a Data de Início ser maior que a data de termino exibir um erro.

Porém não estou conseguindo fazer essa função, alguém poderia me ajudar?

Fiz essa função, mas não esta dando certo

 

Sub checaData()

  If ((IsDate(txtDT_Inicio)) > (IsDate(txtDT_Termino))) then

    txtMensagem = ("Data de término menor que data de início")

  End If

End Sub