HOLA!!!
Mi codigo es un poco diferente a los suyos
(Y a mi gusto queda mas lindo
con los VbTab y demas XD)
[Conste que no consulte fuentes externas][00 LINEAS]Codigo 1:
[15 LINEAS]Codigo 2: (Con declaraciones)
Private Sub Form_Load()
Dim PRIN As String
Dim X As Long
Form1.AutoRedraw = True
Const CODIGO As String = "Private Sub Form_Load()$Dim PRIN As String$Dim X As Long$ Form1.AutoRedraw = True$ Const CODIGO As String = +%+$ For X = 1 To Len(CODIGO)$ '36*vbNewLine$ '37*CODIGO$ '43*Chr(34)$ '39*+If Mid(CODIGO, X, 1) = Chr(+$ '42*+) Then PRIN = PRIN & +$ If Asc(Mid(CODIGO, X, 1)) > 43 Or Mid(CODIGO, X, 1) = +(+ Or Mid(CODIGO, X, 1) = +)+ Or Mid(CODIGO, X, 1) = + + Or Mid(CODIGO, X, 1) = " & " Then PRIN = PRIN & Mid(CODIGO, X, 1)$ Next$ Print PRIN$End Sub"
For X = 1 To Len(CODIGO)
If Mid(CODIGO, X, 1) = Chr(36) Then PRIN = PRIN & vbNewLine
If Mid(CODIGO, X, 1) = Chr(37) Then PRIN = PRIN & CODIGO
If Mid(CODIGO, X, 1) = Chr(43) Then PRIN = PRIN & Chr(34)
If Mid(CODIGO, X, 1) = Chr(39) Then PRIN = PRIN & "If Mid(CODIGO, X, 1) = Chr("
If Mid(CODIGO, X, 1) = Chr(42) Then PRIN = PRIN & ") Then PRIN = PRIN & "
If Asc(Mid(CODIGO, X, 1)) > 43 Or Mid(CODIGO, X, 1) = "(" Or Mid(CODIGO, X, 1) = ")" Or Mid(CODIGO, X, 1) = " " Or Mid(CODIGO, X, 1) = "&" Then PRIN = PRIN & Mid(CODIGO, X, 1)
Next
Print PRIN
End Sub
[13 LINEAS]Codigo 3: (Sin declaraciones)
Private Sub Form_Load()
Form1.AutoRedraw = True
CODIGO = "Private Sub Form_Load()$ Form1.AutoRedraw = True$ CODIGO = +%+$ For X = 1 To Len(CODIGO)$ '36*vbNewLine$ '37*CODIGO$ '43*Chr(34)$ '39*+If Mid(CODIGO, X, 1) = Chr(+$ '42*+) Then PRIN = PRIN & +$ If Asc(Mid(CODIGO, X, 1)) > 43 Or Mid(CODIGO, X, 1) = +(+ Or Mid(CODIGO, X, 1) = +)+ Or Mid(CODIGO, X, 1) = + + Or Mid(CODIGO, X, 1) = +&+ Then PRIN = PRIN & Mid(CODIGO, X, 1)$ Next$ Print PRIN$End Sub"
For X = 1 To Len(CODIGO)
If Mid(CODIGO, X, 1) = Chr(36) Then PRIN = PRIN & vbNewLine
If Mid(CODIGO, X, 1) = Chr(37) Then PRIN = PRIN & CODIGO
If Mid(CODIGO, X, 1) = Chr(43) Then PRIN = PRIN & Chr(34)
If Mid(CODIGO, X, 1) = Chr(39) Then PRIN = PRIN & "If Mid(CODIGO, X, 1) = Chr("
If Mid(CODIGO, X, 1) = Chr(42) Then PRIN = PRIN & ") Then PRIN = PRIN & "
If Asc(Mid(CODIGO, X, 1)) > 43 Or Mid(CODIGO, X, 1) = "(" Or Mid(CODIGO, X, 1) = ")" Or Mid(CODIGO, X, 1) = " " Or Mid(CODIGO, X, 1) = "&" Then PRIN = PRIN & Mid(CODIGO, X, 1)
Next
Print PRIN
End Sub
GRACIAS POR LEER!!!