Static addresses to Dynamic

[masterkert3]

Using ReadProcessMemory/WriteProcessMemory APIs you can change variable values in memory.

I am developing an application that I do not want to be hacked.

Static address is 1 address, it never changes (ex: &H1005FD1)
But Dynamic address constantly changes( With everystartup it changes. (ex: &H100000 can change into &H2641949)

Right now im using code:

Module 1:
public Usage as integer
public Money(32768) as integer

Form1:

Private sub Form_Load()
Randomize
usage = rnd * 32769
End Sub

Private sub Command1_Click()
Money(usage) = text1.text
End Sub

But are there any other ways?