Sumar uno a variable

Buenas a todos, Estoy atorado con algo al parecer simple (no para mi), estoy haciendo un score que guardo en var1 que al arrancar la aplicacion "form1 onload" es igual a 21, lo que quiero es que cuando la variable (var2) o variable (var3) sea igual a variable (var1) abrir un msgbox "Game Over', pero solo si el otro tiene dos puntos menos, si no el score original var1 aumenta un punto, es decir a 22 y asi sucesivamente. me ha funcionado el subir las puntuaciones (var2 = var2 +1) y (var3 = var3 +1) pero no he podido juntar las expresiones para comparar un jugador y el otro para subir el score, lo he intentado con if, select case, y and pero no he podido.

Nota: parecido a un partido de voleyball
gracias de antemano por su ayuda!!!

Acuerdate de definir las variables al principio de la forma

DIM var1,var2,var3 as Integer

y deberia de funcionarte bien

Si estan declaradas como enteros y si funciona bien el +1, lo que no puedo hacer es que si cualquiera de las dos (var2 y var3) llega a 21 salga el msgbox, pero solo si llega por mas de dos, ejemplo que uno tenga 21 y el otro 19, si es 20 y 21 entonces que var1 suba a 22.

Gracias por tu ayuda.

Si entendi bien tu pregunta esto deberia de solucionarlo

If (var2=var1) or (var3=var1) then
resultado= abs(var2-var3)

if resultado =2 then
msgbox "GAME OVER"
else
var1=var1+1
endif

endif

Con esto me funciono muy bien, de todas maneras probare el codigo que dices. Gracias!!!

var1 = var1 + 1
if var1 = var3 then
if var1-var2>= 2 then
msgbox "El jugador 1 a ganado." & vbcrlf & "Game Over"
else
var3 = var3 +1
end if
end if
'y seria lo mismo para jugador 2