在VB中怎么截取某字符串之后的数据

在VB中如何截取某字符串之后的数据
字符串如下：

/11118203,1/12002112,2/12002212,1/12003110,1/12004110,1/12004210,1/12004310,1


当查询：12002212     等到结果：1


我的思路是
第一步，通过12002212 截取到  12002212,1/12003110,1/12004110,1/12004210,1/12004310,1
第二步,通过"/"字符  截取到   12002212,1
第三步 通过 Split  得到  1
 

请问如何用代码得到，可有没能更简便的方法,在此谢谢大家了。
------解决方案--------------------

引用:

VB code
Private Sub Form_Load()
Dim a As String
    a = "/11118203,1/12002112,2/12002212,1/12003110,1/12004110,1/12004210,1/12004310,1"
    a = Mid(a, InStr(InStr(1, a, "12002212"), a, ",") + 1, I……

这样不安全，改一下搜索内容加 "/"和","才能正确控制格式
如
InStr(1, a, "/12002212,")
因为如果有这么个数据
.../1120022120,5/12002212,1/120022122,6/...
你的这种搜索方式将不能正确找到指定目标，但加上 "/" 和 "," 就可以解决这种问题
------解决方案--------------------
呵呵，
a=a&"/"
这样就可以了。
------解决方案--------------------
应该加个判断，判断 s1 中是否包含 s2

s1 = "/11118203,1/12002112,2/12002212,1/12003110,1/12004110,1/12004210,1/12004310,1"
s2 = "12002212" & ","
If Instr(1,s1,s2)>0 Then s = Split(Split(s1, s2)(1), "/")(0)
Debug.Print s

红色区域可以写成变量。