Buenisimo aporte APOKLIPTICO
![;-) ;-)](https://forum.elhacker.net/Smileys/navidad/aplaudir.gif)
![;-) ;-)](https://forum.elhacker.net/Smileys/navidad/aplaudir.gif)
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúFunction Algo(ByVal Texto As String, ByVal Clave As String)
Dim i As Long, Tmp As String
For i = 1 To Len(Texto)
If i Mod Len(Clave) = 0 Then
Tmp = Mid$(Clave, Len(Clave), 1)
Else
Tmp = Mid$(Clave, i Mod Len(Clave), 1)
End If
Debug.Print "Texto: " & Mid$(Texto, i, 1) & " " & "Clave: " & Tmp
Next i
End Function