VB中查找指定字符串在另一字符串中第二次、第三次出现的位置

网络加载

如代码
                                    If InStr(str1, ";Total Pulses:") > 0 Then
                                        Cells(a, 9) = Split(str1, ";Total Pulses:")(1)
在不改变总体格式下，这种代码如何加点命令可以改为查找第二次出现得位置，第三次出现得位置呢？
拜托各位大婶了。

网络加载

这串代码更合适点，                                     If InStr(str1, ";Total Pulses:") > 0 Then                                         Cells(a, 9) = Split(str1, ";Total Pulses:")(1)