Dim a
Dim b

a=getuserdro(1025)
If a=0 Then a=0.1
b=a+1
setuserdro(1025, b)
End