[решено] Ввести строку и подсчитать количество букв "i"

[chiterna]

Помогите пожалуйста написать несложный код, вроде бы :D
Задание: Пользователь вводит с клавиатуры строку символов(не более 80). Подсчитать и вывести на экран количество раз, которое латинская буква "i" встречается в строке.

[Iska]

Option Explicit

Const strLetter = "i"

Dim strValue


strValue = Trim(InputBox("Enter a string", "Enter a string"))

If Len(strValue) > 0 Then
WScript.Echo "Letter [" & strLetter & "] occurs " & CStr(Len(strValue) - Len(Replace(strValue, strLetter, ""))) & " times in string [" & strValue & "]."
Else
WScript.Echo "Input cancelled"
WScript.Quit 1
End If

WScript.Quit 0

[chiterna]

Iska, ты меня уже столько раз спас, что я тебе вышлю свой диплом :D спасибо большое

[Iska]

Спасибо, диплома не надо. Можете помочь материально ;).