Sub strtobytearr()
Const sTMP$ = "я написал код через SubString; но препод сказал что надо: сделать через IndexOf. А как это сделать я не"
'Const sTMP$ = "e Informants. Keep your head up, and continue the good fight!"
Dim a() As Byte, i%, s$

ReDim a(Len(sTMP))

a = sTMP

For i =  0  To UBound(a) Step  2 
    Select Case a(i)
    Case  44 ,  46 ,  58 ,  59 
        If a(i +  1 ) =  0  Then a(i) =  32 
    End Select
Next i

s = a
MsgBox s
Debug.Print sTMP
Debug.Print CStr(a)
End Sub

Sub speedometr()
Const sFILE$ = "c:\temp\mnogabukav.txt"
Dim f As Object, k0&, k&, k1&, s$, a, i%, t!
Dim arr() As Byte
Set f = CreateObject("scripting.filesystemobject").opentextfile(sFILE,  1 )
a = Split(f.readall, vbCrLf)
f.Close: Set f = Nothing

t = Timer
For k0 =  0  To UBound(a)
For k =  0  To UBound(a)
For k1 =  0  To UBound(a)
'    arr = a(k1)
'    For i = 0 To UBound(arr) Step 2
'        Select Case arr(i)
'        Case 44, 46, 58, 59
'            If arr(i + 1) = 0 Then arr(i) = 32
'        End Select
'    Next i
'    s = arr
    s = Replace(Replace(Replace(Replace(a(k1), ",", " "), ".", " "), ":", " "), ";", " ")
Next k1
Next k
Next k0
Debug.Print Timer - t
Erase arr, a
End Sub

файл mnogabukav.txt:
строк 190
мин.длина строки   11
макс.длина строки 850
ср.длина строки   180 

с реплэйсом      ~78с
с массивом байт ~163с