Проход по всем словам, находящимся в переменной

Option Explicit
'апи функция для получения значения счетчика
Private Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As LARGE_INTEGER) As Long
'апи функция для получения значения частоты
Private Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As LARGE_INTEGER) As Long
'апи функция для копирования области памяти
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
'структура для хранения 64-разрядного числа
Private Type LARGE_INTEGER
    LowPart As Long
    HighPart As Long
End Type
Dim T As Long, _
    liFrequency As LARGE_INTEGER, _
    liStart As LARGE_INTEGER, _
    liStop As LARGE_INTEGER
    
Dim cuFrequency As Currency, cuStart As Currency, cuStop As Currency
'Имя процедуры, вызвавшей счётчик
Private m_ProcName As String
'Состояние счётчика производительности
Private m_CounterEnabled As Boolean
 
Public Property Get Enabled() As Boolean
    Enabled = m_CounterEnabled
End Property
 
'Запуск счётчика производительности
Public Sub Run(Optional ByVal ProcName As String = "")
    m_CounterEnabled = QueryPerformanceFrequency(liFrequency) <> 0
    If m_CounterEnabled Then
        'конвертировать 64-разрядное число в тип currency
        cuFrequency = LargeIntToCurrency(liFrequency)
        
        'получить количество "тиков"
        QueryPerformanceCounter liStart
    Else
        Debug.Print "Ваше аппаратное обеспечение не поддерживает счетчик производительности высокой точности!"
    End If
     m_ProcName = ProcName
End Sub
'Остановка счётчика производительности
Public Sub StopCounter()
    If m_CounterEnabled Then
        'получить количество "тиков"
        QueryPerformanceCounter liStop
        
        'конвертировать 64-разрядное число в тип currency
        cuStart = LargeIntToCurrency(liStart)
        cuStop = LargeIntToCurrency(liStop)
        
        'вычислить как много времени затрачено, и показать результат
        DebugPrint CStr(Round((cuStop - cuStart) / cuFrequency, 10))
    End If
End Sub
 
Private Sub DebugPrint(ByVal CounterValue As String)
    Dim s As String
    If Len(m_ProcName) > 0 Then s = "Имя процедуры: " & m_ProcName & vbCr
    s = s & "Длительность: " & CounterValue & " секунд."
    Debug.Print s
End Sub
 
'функция для конвертирования 64-разрядного числа в тип currency
Private Function LargeIntToCurrency(liInput As LARGE_INTEGER) As Currency
          'копировать 8 байт из 64-разрядного в currency
    CopyMemory LargeIntToCurrency, liInput, LenB(liInput)
    
    'adjust it - хз =)
    LargeIntToCurrency = LargeIntToCurrency * 10000
End Function