VB 6.0 求得某个字符串文本中出现的位置

Question

form1下有text1,text2,command1三个控件，text1有文本如下：
子弹射出的距离统计如下：400米，410米，409米，421米，398米......452米，430米....
上面的“米”这个字符，出现的次数我不知道，很多个，我想求得第17个“米”字之前的数字（“米”之前的数字都是3位数的），command1的单击后，然后数字显示到text2中，高手给个command1的单击事件代码。
文本是这个：“米”和“米”中间有了其他字符串，如下：
子弹射出的距离统计如下：第一发：400米，第二发：410米，第三发：409米，第四发：421米，第五发：398米......第XX发，XXX米
我的意思是，找到第17个“米”出现时，该“米”所在text1中的字符位置，然后往左取3个位，得到这个数字。刚学VB，不知command1 的单击事件代码怎么写

Answer 1

Private Sub Command1_Click()
Text2 = Right(Split(Text1, "米")(16), 3)
End Sub

Answer 2

Private Sub Command1_Click()
Dim grp() As String
grp = Split(Text1.Text, "米")
If UBound(grp) >= 16 Then
Text2.Text = Right(grp(16), 3) '下标从0开始
End If
End Sub

Answer 3

Private Sub Command1_Click()
Dim grp() As String
grp = Split(Text1.Text, "米")
If UBound(grp) >= 16 Then
Text2.Text = Right(grp(16), 3) '下标从0开始
End If
End Sub