Module PRUEBA
 
    Private DChar() As Char = {
        "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t",
        "u", "v", "w", "x", "y", "z",
        "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T",
        "U", "V", "W", "X", "Y", "Z",
        "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
    }
 
    Dim chrIntent As Integer
    Dim chrPos As Integer
 
    Public Sub initPasswordModule()
 
        chrIntent = 1
        chrPos = 0
 
    End Sub
 
    Public Sub newGetPassword()
        Dim BruteSTR(UBound(DChar)) As Char
        Dim PasswordCracked As Boolean
 
        PasswordCracked = True
        BruteSTR(0) = DChar(0)
 
        Do While PasswordCracked
            GenerateString(BruteSTR, chrPos, chrIntent)
            Debug.Print(BruteSTR & " - ")
            PasswordCracked = False
            Application.DoEvents()
        Loop
 
    End Sub
 
    Private Sub GenerateString(ByRef StrChar() As Char, ByRef cPos As Integer, ByRef cIntent As Integer)
        Dim lastCaracterIndex As Integer
        lastCaracterIndex = cIntent Mod Len(DChar)
 
        If lastCaracterIndex = 0 Then ' Llegamos al ultimo caracter del array => agregamos un nuevo caracter
            cPos = cPos
            StrChar(cPos) = DChar(0)
        Else
            StrChar(cPos) = DChar(lastCaracterIndex) ' Cambiamos el ultimo caracter por el siguiente
        End If
 
        cIntent = cIntent + 1
 
    End Sub
 
End Module

If (A And &H20) Then Exit Function
If (C And &H8000) Then Exit Function
If (B And &H8) Then
etc...

Public Function Set_Memory_IP(MemoryOffset As Long, WindowName As String, Value As Currency) As Currency
 
    Dim hWnd As Long
    Dim ProcessID As Long
    Dim ProcessHandle As Long
 
    hWnd = FindWindow(vbNullString, WindowName)
 
    If hWnd = 0 Then
 
            MsgBox "No encontré el proceso", vbCritical, ""
 
            Exit Function
 
    End If
 
    GetWindowThreadProcessId hWnd, ProcessID
 
    ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)
 
    If ProcessHandle = 0 Then
 
        Exit Function
 
    End If
 
    WriteProcessMemory ProcessHandle, MemoryOffset, Value, 8, 0&
 
    CloseHandle ProcessHandle
 
End Function