Visual Basic - sumar en unt ext

mi text tiene un valor numerico como puedo hacer para que al tomar ese vaolr siga sumando e intentado de este modo
r = Val(Text1)
r = r + 1
Text1 = r
pero me da 1 como si fuera 0 y el valor que tenia en el text era 5 y deberia haber salido 6 al momento de hacer click quiero que asuma el valor existente en el text para que siga almacenado o contando que me recomiendan porfavor

crea una funcion que te genere un numero consecutivo y se lo asignas al text

ya haria esto

text1.text=val(text1.text)+1

o siguiendo tu ejemplo

dim r as integer
r=val(text1.text)
r=r+1
text1.text=r

espero te sirva
suerte