[Resolvido]Não deixar gravar se um valor for superior a outro, com condições

Boa tarde

Ao fazer click num botão para gravar, quero este comando, mas não estou a conseguir:

If Me.Banco.Value < Me.Vlr.Value And Me.TipoD.Value = "S" And Me.Conta = "Banco" Then
MsgBox "Não tem Saldo Disponivel para Efectuar este Lançamento !", vbInformation, "Gestão Despesas"
Me.MinhaData.SetFocus
exit sub
Else
End If

Banco.Value é o valor em moeda de um campo
Me.TipoD.Value = "S"
Me.Vlr é o valor em moeda que quero lançar.
Me.conta é Texto


Se o Me.Vlr for maior que o Banco.Value e o Me.tipoD ="S" e o Me.Conta.Value = "Banco" --- Não gravar

Se o Me.Vlr for menor que o Banco.Value e o Me.tipoD ="S" e o Me.Conta.Value = "Banco" --- Deixa Gravar


Obrigado

Se os campos forem do tipo texto... tente converter primeiramente para numeral...
Algo assim

Dim lngBanco as Long
Dim ingVlr as Long

ingBanco = Clng(Me.Banco)
ingVlr = Clng(Me.Vlr)

Depois faça as comparações entre as variáveis.

Cumprimentos.

Se o tipo de campo contiver decimais utilize o Double, ex:

Dim dblBanco as Double

dblBanco = Cdbl(Me.Banco)

Cumprimentos.

Piloto

O Campo tinha uma formatação assim:

#.##0,00 €[Branco];#.##0,00 €[Vermelho]
Isto é, quando é negativo fica vermelho

Alterei para padrão, 3 resolveu...

Obrigado

O Fórum agradece o Retorno.