How to make multiple conditions in one if in vbs?

Question

VBScript

I have several variables
apelsin = yes
mandarin = yes
jabloko = no
grusha = yes
How can I make such a check?: If at least one with variables = yes then display
MsgBox "Fruits found"
If all variables are = no then
skip code with MsgBox Suggested
this code

a = no
m = no
j = no
g = no


if a=yes or m=yes or j=yes or g=yes then
MsgBox "est frukti"
else
MsgBox "fruktov net"
End If

I guessed something like this, but for some reason, according to the logic of things, the first window should not have been opened, since all variables = no , but I still observe "est frykti" . What have I done wrong?

Answer 1

put quotes
a = "no"
m = "no"
j = "no"
g = "no"
if a="yes" or m="yes" or j="yes" or g="yes" then
MsgBox "est frukti"
else
MsgBox "fruktov net"
End If