klein probleempje

[treinengek]

ik ben voor school een bestand aan het maken het is een vragenlijst. bijv:
strPtn = InputBox("2x4=??")
If (strptn) =8 Then: msgbox "Dat is het goede antwoord"
If (strPtn) <>8 Then: msgbox "Jammer dit antwoord is fout..."
dit werkt perfect. maar deze doet het niet:
strPtn = InputBox("tiep test")
If (strptn) =test Then: msgbox "Dat is het goede antwoord"
If (strPtn) <>test Then: msgbox "Jammer dit antwoord is fout..."
als ik hem dan uitvoer geeft hij aan dat het andwoord fout is. iemand enig idee hoe ik dit op kan lossen? groetjes Corné

 

[CoD_NL]

dim s as string
s = inputbox("Type het woord tiet")
if s = "tiet" then 
  msgbox "******!"
else
  msgbox "geen ****** :("
end if

Zoiets zou gewoon moeten werken. (die haakjes zijn bij een if-statement onder VB niet nodig, al heb ik zelf ook snel de neiging om if(conditie) te schijven )

edit: nog even voor de duidelijkheid:

If (strptn) =test Then: msgbox "Dat is het goede antwoord"

Je wilt hier de waarde 'strptn' vergelijken met de string "test". Dan dien je er aanhalingstekens om te zetten. (of test moet een variabele zijn, iets als dim test as string ; test = "tiet")