how i can use WriteProcessMemory Function write Mem into the &HA?

'my function我的写内存函数定义
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
'mycode
dim s as byte
'dim s as long '无论定义为byte，还是long，写入后，内存都显示为10
s=&HA
WriteProcessMemory(hProcess, myAdd, s, 1, 0&)
'why the Mem is "10",not is "0A",how i can use WriteProcessMemory Function write Mem into the &HA?

'myemail:[removed]