Public Sub Macarena()
    Dim x As Variant, y As Variant, z As Variant
    Dim a As Integer, b As Integer
    x = Split("o o o o o o <o <o> o> o o o o o o o", Chr(32))
    y = Split("^|\ ^|^ v|^ v|v |/v |X| \| | \ x </ <|> </> <\> <)> |\", Chr(32))
    z = Split("/\ >\ /< >\ /< >\ /< >\ /< >\ /< >\ /< >\ >> L", Chr(32))
    a = 0
    b = UBound(x)
    Do While True
        If a = b Then
            a = 0
        Else
            a = a + 1
        End If
        Debug.Print Chr(32) & x(a)
        Debug.Print IIf(Len(y(a)) = 1, Chr(32), vbNullString) & y(a)
        Debug.Print z(a)
        Debug.Print vbNewLine
        Sleep 1
        DoEvents
    Loop
End Sub