VB ASM

=====================================


Private Sub Form_Load()
 
  For i = 0 To 10
     MsgBox "z5"
  Next i
 
End Sub


======================================


; ---------------------------------------------------------------------------

loc_401A80:                            
                push    ebp
                mov     ebp, esp
                sub     esp, 0Ch
                push    (offset loc_4010A5+1)
                mov     eax, large fs:0
                push    eax
                mov     large fs:0, esp
                sub     esp, 0BCh
                push    ebx
                push    esi
                push    edi
                mov     [ebp-0Ch], esp
                mov     dword ptr [ebp-8], offset dword_401090
                mov     eax, [ebp+8]
                mov     ecx, eax
                and     ecx, 1
                mov     [ebp-4], ecx
                and     al, 0FEh
                push    eax
                mov     [ebp+8], eax
                mov     edx, [eax]
                call    dword ptr [edx+4]
                xor     ebx, ebx
                mov     eax, 2
                mov     [ebp-74h], ebx
                mov     [ebp-84h], ebx
                mov     [ebp-94h], ebx
                mov     [ebp-74h], eax
                mov     [ebp-84h], eax
                mov     [ebp-94h], eax
                lea     eax, [ebp-74h]
                lea     ecx, [ebp-84h]
                push    eax
                lea     edx, [ebp-94h]
                push    ecx
                lea     eax, [ebp-0C4h]
                push    edx
                lea     ecx, [ebp-0B4h]
                push    eax
                lea     edx, [ebp-24h]
                mov     edi, 0Ah
                push    ecx
                push    edx
                mov     [ebp-24h], ebx
                mov     [ebp-34h], ebx
                mov     [ebp-44h], ebx
                mov     [ebp-54h], ebx
                mov     [ebp-64h], ebx
                mov     [ebp-0B4h], ebx
                mov     [ebp-0C4h], ebx
                mov     dword ptr [ebp-6Ch], 1
                mov     [ebp-7Ch], edi
                mov     [ebp-8Ch], ebx
                call    ds:__vbaVarForInit
                mov     esi, 80020004h


loc_401B46:                            
                cmp     eax, ebx
                jz      short loc_401BC2

                lea     edx, [ebp-74h]
                lea     ecx, [ebp-34h]
                mov     [ebp-5Ch], esi
                mov     [ebp-64h], edi
                mov     [ebp-4Ch], esi
                mov     [ebp-54h], edi
                mov     [ebp-3Ch], esi
                mov     [ebp-44h], edi
                mov     dword ptr [ebp-6Ch], offset s_Z5 ; "z5"
                mov     dword ptr [ebp-74h], 8
                call    ds:__vbaVarDup
                lea     eax, [ebp-64h]
                lea     ecx, [ebp-54h]
                push    eax
                lea     edx, [ebp-44h]
                push    ecx
                push    edx
                lea     eax, [ebp-34h]
                push    ebx
                push    eax
                call    ds:rtcMsgBox
                lea     ecx, [ebp-64h]
                lea     edx, [ebp-54h]
                push    ecx
                lea     eax, [ebp-44h]
                push    edx
                lea     ecx, [ebp-34h]
                push    eax
                push    ecx
                push    4
                call    ds:__vbaFreeVarList
                add     esp, 14h
                lea     edx, [ebp-0C4h]
               lea     eax, [ebp-0B4h]
                lea     ecx, [ebp-24h]
                push    edx
                push    eax
                push    ecx
                call    ds:__vbaVarForNext
                jmp     short loc_401B46

; ---------------------------------------------------------------------------

loc_401BC2:                           
                mov     [ebp-4], ebx
                push    offset loc_401C0B
                jmp     short loc_401BE8



; ---------------------------------------------------------------------------

loc_401BE8:                            
                lea     eax, [ebp-0C4h]
                lea     ecx, [ebp-0B4h]
                push    eax
                push    ecx
                push    2
                call    ds:__vbaFreeVarList
                add     esp, 0Ch
                lea     ecx, [ebp-24h]
                call    ds:__vbaFreeVar
                retn

; ---------------------------------------------------------------------------

loc_401C0B:                            
                mov     eax, [ebp+8]
                push    eax
                mov     edx, [eax]
                call    dword ptr [edx+8]
                mov     eax, [ebp-4]
                mov     ecx, [ebp-14h]
                pop     edi
                pop     esi
                mov     large fs:0, ecx
                pop     ebx
                mov     esp, ebp
                pop     ebp
                retn    4

; ---------------------------------------------------------------------------