VB.NET Teste lógico com TextBox dando erro - VBA

[Rafael_Luna_2019]

Olá, estou tentando fazer uma comparação de duas textBox no VBA, queria colocar uma margem de erro de R$5,00, para se caso o valor real ultrapassasse o valor estimado em até 5 reais, continuasse na cor preta, caso ultrapassasse o teto, a cor muda para vermelho.

quando fiz o teste usando somente o valor estimado, deu tudo certo, más quando coloquei "+ 5", o texto fica sempre vermelho.

queria enteder o que está acontecendo

 

ValorReal e ValorEst são ambos TextBox.

Private Sub ValorReal_Change()
Dim Teto
Teto = ValorEst.Value + 5
'(se o ValorReal estiver vazio, os tipos se tornam incompatíveis, por que o ValorReal.Value passa a ser do tipo string)
If Not ValorReal.Value = "" Then     
If ValorReal.Value > Teto Then
  ValorReal.ForeColor = &HFF&
Else
  ValorReal.ForeColor = &H0&
End If
End If
End Sub

 

[Rafael_Luna_2019]

resolvi o problema, acontece que tinha só que definir a variável como double 

mais que fique de lembrete se alguem tiver com esse impasse também