Option Explicit

Private Const TIEMPO_ESTATICO As Byte = 3

Private Type tNicks
    letras() As String
    cadenaFinal As String
    contadorLetras As Integer
    contador As Integer
    ultimaLetra As Byte
    posicion As Byte
    posicionLetra As Byte
    posicionFinal As Byte
End Type

Private nicks() As tNicks
Private cantidadNicks As Byte


Sub addNick(ByVal name As String)

    Dim lenght As Integer, i As Long

    cantidadNicks = cantidadNicks + 1
    lenght = Len(name)

    ReDim Preserve nicks(1 To cantidadNicks) As tNicks
    ReDim nicks(cantidadNicks).letras(1 To lenght) As String

    With nicks(cantidadNicks)

        For i = 1 To lenght
            .letras(i) = Mid$(name, i, 1)
        Next i

        .posicionFinal = lenght
        .posicion = .posicionFinal
        .posicionLetra = .posicion
    End With

End Sub

Sub moveNicks()

    Dim x As Long

    For x = 1 To cantidadNicks
        With nicks(x)

            If .contador > 0 Then
                .contador = .contador - 1
                If .contador = 0 Then
                    .ultimaLetra = 0
                    .cadenaFinal = vbNullString
                Else
                    Exit Sub
                End If
            End If

            .ultimaLetra = .ultimaLetra + 1

            .cadenaFinal = .cadenaFinal & .letras(.ultimaLetra)

            If .ultimaLetra = UBound(.letras()) Then .contador = TIEMPO_ESTATICO

            'Label1.Caption = .cadenaFinal
        End With
    Next x

End Sub

Sub effectNick()

    Dim strTemp As String, strCadenaFinal As String, x As Long, i As Long

    For x = 1 To cantidadNicks

        With nicks(x)

            If .ultimaLetra = 0 Then moveNicks



            For i = 1 To .posicionLetra
                strTemp = strTemp & " "
            Next i

            .posicionLetra = .posicionLetra - 1

            strCadenaFinal = .cadenaFinal
            strCadenaFinal = Mid$(strCadenaFinal, .ultimaLetra)
            strCadenaFinal = strTemp & strCadenaFinal

            If .ultimaLetra > 1 Then
                strCadenaFinal = Mid$(.cadenaFinal, 1, .ultimaLetra - 1) & strCadenaFinal
            End If
            Label1(x).Caption = strCadenaFinal

            If .posicionLetra = 0 Then
                moveNicks
               .posicionLetra = .posicionFinal
            End If
        End With

    Next x

End Sub

Private Sub Form_Load()
    Call addNick("Toyz")
End Sub

Private Sub Timer1_Timer()
    Call effectNick
End Sub