hey you just need 2 new part in your modul
just change string for your modul
:Public Function WriteAByte(DDC50B45 As Long, F6109BFB As Byte)
Dim B4AFE7C6 As Long
Dim D8013DDD As Long
Dim BBEB130B As Long
B4AFE7C6= F79F1CC6(vbNullString, "WarRock")
If (B4AFE7C6= 0) Then
Exit Function
End If
E073507F B4AFE7C6,BBEB130B
D8013DDD= BFE4EA63(&H1F0FFF, False,BBEB130B)
If (D8013DDD= 0) Then
Exit Function
End If
C92B60B8 D8013DDD,DDC50B45,F6109BFB,1, 0&
E3CA2100 D8013DDD
End Function
'WriteASM
Public Function WriteASM(Address As Long, ASM As String)
Dim i As Integer
Dim i2 As Integer
i2 = 1
While i < (Len(ASM) / 2)
Call WriteAByte(Address + i, Val("&H" & Mid$(ASM, i2, 2)))
i = i + 1
i2 = i2 + 2
Wend
End Function
and the code Call WriteASM(&Hadress, "1C")