Application (" Counter ")=Application (" Counter ") + 1
The current refresh can increase 1 at a time,

I want to change into a refresh between 10 to 20 random to increase the number, instead of only 1 time, how do you write the code? Such as refresh once add 10 or 15 or 16, the minimum is 10. The increase is to increase 20

Thank you very much!!


If TXT. AtEndOfStream Then
Application (" Counter ")=0 'if there is no data in the file, the initialization of the Application (" Counter ") values (for fault tolerance)
The Else
Application (" Counter ")=TXT. ReadLine
End the If
TXT. Close ()
The Set TXT=Nothing

Application. The Lock 'use of Application feature to prevent concurrent writes
Application (" Counter ")=Application (" Counter ") + 1
SaveNum (Application (" Counter "))
'writing new dataApplication. UnLock

End the Function

'display count function
The Function ReadNum ()
The Init ()
ReadNum=PrintNumber (Application (" Counter ")) display function called '
End the Function