Estou tentando comparar os dados gravados no registro do windows com uma que configuro no pgm, so que ele numca vem certo pra variavel qnd jogo no msgbox ta certo, alguem pode me ajudar onde estou errando?

 

Public checkTipo as String

 

o resultado que quero é 1

 

Checktipo = GetStringValue HKEY_LOCAL_MACHINESOFTWAREMICROSOFTWINDOWSCURRENTVERSION", TipoMenu")

resultado : 1  1  1

 

'MsgBox GetStringValue "HKEY_LOCAL_MACHINESOFTWAREMICROSOFTWINDOWSCURRENTVERSION", TipoMenu")

resultado = 1

 

            If Checktipo <> DeTipo Then
                Getmenu
                Exit Sub
            End If