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