[ Help ] VB6 Coding not working

i only get program/ driver disallowed (but only when i launch hack first time after the error it dont say it anymore) and sometimes (rarly) i get MULTIHACK ban

well this is what some should look like:

Scope:
If GetAsyncKeyState(vbKeyRButton) Then
Call WriteALong("warrock", &HB08A6A, 1)
Else
Call WriteALong("warrock", &HB08A6A, 0)
End If

CrossHair:
Call WriteALong("warrock", &HB08A90, 1)

NFD:
Dim NFD1 As Long
Dim NFD2 As Long
Call ReadALong("WarRock", &H1363380, NFD1)
NFD2 = NFD1 + &H260
Call WriteAFloat("WarRock", NFD2, -2000)

Recoil:
Dim recoil1 As Long
Dim recoil2 As Long
Dim recoil3 As Long
Dim recoil4 As Long
Call ReadALong("warrock", &H1363380, recoil1)
recoil2 = recoil1 + &H2D8
recoil3 = recoil1 + &H2DC
recoil4 = recoil1 + &H2E0
Call WriteAFloat("warrock", recoil2, 0)
Call WriteAFloat("warrock", recoil3, 0)
Call WriteAFloat("warrock", recoil4, 0)

+R if i helped ^^