Private Sub mnuOff_Click() '4225A0
loc_004225C2: var_08 = &H401530
loc_004225CE: and eax, 00000001h
loc_004225D1: var_04 = arg_08
loc_004225D4: and esi, FFFFFFFEh
loc_004225D8: arg_08 = arg_08
loc_004225DD: call ecx+04h(arg_08, edi, esi, ebx, fs:[0
0h], MSVBVM60.DLL.__vbaExceptHandler, ebp)
loc_004225E8: call edx+000003DCh(arg_08)
loc_004225F3: var_18 = IsSet(edx+000003DCh(arg_08))
loc_00422603: call ecx+54h(var_18, "650")
loc_0042260A: If ecx+54h(var_18, "650") < edi Then
loc_00422615: call MSVBVM60.DLL.__vbaHresultCheckObj(ecx+54h(
var_18, "650"), var_18, 0040D854h, 00000054h)
loc_0042261B: End If
loc_0042261E: call MSVBVM60.DLL.__vbaFreeObj
loc_0042262C: GoTo loc_422638
loc_00422631: call MSVBVM60.DLL.__vbaFreeObj
loc_00422637: ret
loc_00422638: 'Referenced from 0042262C
loc_00422638: ret
loc_0042263F: call edx+08h(arg_08)
End Sub
Google VBDecompiler.
You can see the code like this:
Code:Private Sub mnuOff_Click() '4225A0 loc_004225C2: var_08 = &H401530 loc_004225CE: and eax, 00000001h loc_004225D1: var_04 = arg_08 loc_004225D4: and esi, FFFFFFFEh loc_004225D8: arg_08 = arg_08 loc_004225DD: call ecx+04h(arg_08, edi, esi, ebx, fs:[0 0h], MSVBVM60.DLL.__vbaExceptHandler, ebp) loc_004225E8: call edx+000003DCh(arg_08) loc_004225F3: var_18 = IsSet(edx+000003DCh(arg_08)) loc_00422603: call ecx+54h(var_18, "650") loc_0042260A: If ecx+54h(var_18, "650") < edi Then loc_00422615: call MSVBVM60.DLL.__vbaHresultCheckObj(ecx+54h( var_18, "650"), var_18, 0040D854h, 00000054h) loc_0042261B: End If loc_0042261E: call MSVBVM60.DLL.__vbaFreeObj loc_0042262C: GoTo loc_422638 loc_00422631: call MSVBVM60.DLL.__vbaFreeObj loc_00422637: ret loc_00422638: 'Referenced from 0042262C loc_00422638: ret loc_0042263F: call edx+08h(arg_08) End Sub
Using some form of decompiler it would be possible to find his password if you can read through the machine code or ASM it spits out. As for getting the full source code, I don't think so.I used a VB decompiler and I was able to get past his password on the program.
Not sure if that's what you mean but I'll throw it out there anyways.

