输出字符串“My name is Jim,Your name is Tom.”中字母“i”每次出现的位置，以及一共出现的次数。

使用VB语言实现

没有学过VB方面的知识

希望知道vb方面知识的高手能帮个忙

Dim s As String
s = "My name is Jim,Your name is Tom."
Dim Count As Integer
Count = 0
For i = 1 To Len(s)
If Mid(s, i, 1) = "i" Then
TextBox1.Text = TextBox1.Text & "Found i at " & i & vbCrLf
Count = Count + 1
End If
Next
TextBox1.Text = TextBox1.Text & "共找到" & Count & "个i"