Algo como usar e converter esse codigo para Visual Basic
Private Sub Command2_Click() '4C47B0
loc_004C47B0: push ebp
loc_004C47B1: mov ebp, esp
loc_004C47B3: sub esp, 00000018h
loc_004C47B6: push 00402826h ;
loc_004C47BB: mov eax, fs:[00h]
loc_004C47C1: push eax
loc_004C47C2: mov fs:[00000000h], esp
loc_004C47C9: mov eax, 00000030h
loc_004C47CE: call 00402820h ;
loc_004C47D3: push ebx
loc_004C47D4: push esi
loc_004C47D5: push edi
loc_004C47D6: mov var_18, esp
loc_004C47D9: mov var_14, 00402710h
loc_004C47E0: mov eax, arg_8
loc_004C47E3: and eax, 00000001h
loc_004C47E6: mov var_10, eax
loc_004C47E9: mov ecx, arg_8
loc_004C47EC: and ecx, FFFFFFFEh
loc_004C47EF: mov arg_8, ecx
loc_004C47F2: mov var_C, 00000000h
loc_004C47F9: mov edx, arg_8
loc_004C47FC: mov eax, [edx]
loc_004C47FE: mov ecx, arg_8
loc_004C4801: push ecx
loc_004C4802: call [eax+04h]
loc_004C4805: mov var_4, 00000001h
loc_004C480C: mov var_4, 00000002h
loc_004C4813: push FFFFFFFFh
loc_004C4815: call On Error ...
loc_004C481B: mov var_4, 00000003h
loc_004C4822: cmp [004C6010h], 00000000h
loc_004C4829: jnz 4C4844h
loc_004C482B: push 004C6010h
loc_004C4830: push 0040A830h
loc_004C4835: call [00401114h] ;
loc_004C483B: mov var_44, 004C6010h
loc_004C4842: jmp 4C484Bh
loc_004C4844: mov var_44, 004C6010h
loc_004C484B: mov edx, var_44
loc_004C484E: mov eax, [edx]
loc_004C4850: mov var_28, eax
loc_004C4853: push 00411534h ; "NO"
loc_004C4858: mov ecx, var_28
loc_004C485B: mov edx, [ecx]
loc_004C485D: mov eax, var_28
loc_004C4860: push eax
loc_004C4861: call [edx+000001C4h]
loc_004C4867: fclex
loc_004C4869: mov var_2C, eax
loc_004C486C: cmp var_2C, 00000000h
loc_004C4870: jnl 4C488Fh
loc_004C4872: push 000001C4h
loc_004C4877: push 00410E44h
loc_004C487C: mov ecx, var_28
loc_004C487F: push ecx
loc_004C4880: mov edx, var_2C
loc_004C4883: push edx
loc_004C4884: call [00401054h] ;
loc_004C488A: mov var_48, eax
loc_004C488D: jmp 4C4896h
loc_004C488F: mov var_48, 00000000h
loc_004C4896: mov var_4, 00000004h
loc_004C489D: cmp [004C6D20h], 00000000h
loc_004C48A4: jnz 4C48BFh
loc_004C48A6: push 004C6D20h
loc_004C48AB: push 00412010h
loc_004C48B0: call [00401114h] ;
loc_004C48B6: mov var_4C, 004C6D20h
loc_004C48BD: jmp 4C48C6h
loc_004C48BF: mov var_4C, 004C6D20h
loc_004C48C6: mov eax, var_4C
loc_004C48C9: mov ecx, [eax]
loc_004C48CB: mov var_28, ecx
loc_004C48CE: mov edx, arg_8
loc_004C48D1: push edx
loc_004C48D2: lea eax, var_24
loc_004C48D5: push eax
loc_004C48D6: call [00401080h] ;
loc_004C48DC: push eax
loc_004C48DD: mov ecx, var_28
loc_004C48E0: mov edx, [ecx]
loc_004C48E2: mov eax, var_28
loc_004C48E5: push eax
loc_004C48E6: call [edx+10h]
loc_004C48E9: fclex
loc_004C48EB: mov var_2C, eax
loc_004C48EE: cmp var_2C, 00000000h
loc_004C48F2: jnl 4C490Eh
loc_004C48F4: push 00000010h
loc_004C48F6: push 00412000h
loc_004C48FB: mov ecx, var_28
loc_004C48FE: push ecx
loc_004C48FF: mov edx, var_2C
loc_004C4902: push edx
loc_004C4903: call [00401054h] ;
loc_004C4909: mov var_50, eax
loc_004C490C: jmp 4C4915h
loc_004C490E: mov var_50, 00000000h
loc_004C4915: lea ecx, var_24
loc_004C4918: call [00401194h] ;
loc_004C491E: mov var_10, 00000000h
loc_004C4925: push 004C4937h
loc_004C492A: jmp 4C4936h
loc_004C492C: lea ecx, var_24
loc_004C492F: call [00401194h] ;
loc_004C4935: ret
loc_004C4936: ret
loc_004C4937: mov eax, arg_8
loc_004C493A: mov ecx, [eax]
loc_004C493C: mov edx, arg_8
loc_004C493F: push edx
loc_004C4940: call [ecx+08h]
loc_004C4943: mov eax, var_10
loc_004C4946: mov ecx, var_20
loc_004C4949: mov fs:[00000000h], ecx
loc_004C4950: pop edi
loc_004C4951: pop esi
loc_004C4952: pop ebx
loc_004C4953: mov esp, ebp
loc_004C4955: pop ebp
loc_004C4956: retn 0004h
End Sub