Carregar valores em uma variavel

Preciso criar um filtro onde vou selecionar um valor e o meu banco de dados vai devolver os valores maiores que o valor que eu selecionei no meu setpoint. O valor que eu selecionei vai ser carregado na variável logo após eu apertar um botão.
Infelizmente não estou conseguindo carregar um valor na variável.

Segue o script do setpoint:

Sub spvalor_Click()
if Application.SetValue “valor”, 20 then
'Passa o valor escolhida para o SetPoint
Value = valor
End if
End Sub

Segue o script do botão:

Sub CommandButton3_Click()
'configura as variáveis da consulta
Screen.Item(“E3Browser1”).Item(“Consulta1”).SetVariableValue “Valor”, Screen.Item(“spvalor”).Value
End Sub

Imagem1

Arthur,

O script do Setpoint deve estar dando erro. Qual era a sua intenção com esse script? Não faz muito sentido. Basta digitar o valor desejado no setpoint.