[ HELP ] Stamina Code VB6

First time using VB so trying to get hang of it i get error in this code

Code:

Private Sub Command1_Click()
If Timer1.Enabled = True Then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
If GetKeyPress(vbKeyShift) Then
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1363380, STAN)
STAN1 = STAN + &H288
Call WriteAFloat("WarRock", STAN1, 100)
End Sub

Whats the error?

Call ReadALong it wont let me save the .exe becuz " Compile Error: Sub or Function not defined " and then it highlights " Call ReadALong " and now i put in a hotkey and it highlights " GetKeyPress "