Перебрать все символы в строке — Visual Basic(Бейсик)

iText = "Строка, содержащая $, №, ?, а также A, B, C"
For iCount = 1 To Len(iText)
    iSymbol = Mid(iText, iCount, 1)
    MsgBox iSymbol
Next