Alguien sabe de un decompilador de Visual Basic, que al decompilar el codigo lo haga de esta forma:

Private Sub Command1_Click() '401D50
  'Data Table: 401838
  loc_401CF6: If (CVar(Text1.Text) = 982) Then '401D25
  loc_401D12:   MsgBox("YaZZ", &H0, var_EC, var_10C, var_12C)
  loc_401D22:   GoTo loc_401D4E
  loc_401D25: End If
  loc_401D3E: MsgBox("Fuxer", &H0, "", "", var_12C)
  loc_401D4E: ' Referenced from: 401D22
  loc_401D4E: Exit Sub
End Sub

Baje el VBreformer y el VB decompile_lite pero me dan el codigo asi:


Private Sub Command1_Click() '401D50
  'Data Table: 401838
  loc_401CCC: FLdRfVar var_AC
  loc_401CCF: FLdPrThis
  loc_401CD0: VCallAd Text1
  loc_401CD3: FStAdFunc var_A8
  loc_401CD6: FLdPr var_A8
  loc_401CD9:  = Me.Text
  loc_401CDE: FLdZeroAd var_AC
  loc_401CE1: CVarStr var_BC
  loc_401CE4: FStVar
  .
  .
  . etc
 
 asi no le entiendo  jeje
Gracias

Creo que el que se semeja más al código que buscas es el de Numega... Hace años que no lo uso y se me ha olvidado hasta el nombre, creo que el programa se llama: Numega SmartCheck.