Private Declare Function CallAsm Lib "user32" Alias "CallWindowProcA" (ByRef lpBytes As Any, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long



Private Sub Command1_Click()
msgbox MUL(12)
End Sub


Function MUL(x As Long) As Long
    Dim o() As Byte
    Dim sl As String
    sl = "8B 45 0C F7 E0 C2 10 00"
    o() = mb(sl)
    MUL = CallAsm(o(0), x, 0, 0, 0)
End Function

Function mb(x As String) As Byte()
    Dim tmp() As String
    Dim fx() As Byte
    Dim i As Long
    tmp = Split(x, " ")
    ReDim fx(UBound(tmp))
    For i = 0 To UBound(tmp)
        fx(i) = CInt("&h" & tmp(i))
    Next
    mb = fx()
End Function