Uibot 字符串中获取冒号后面的内容，冒号有多个

Uibot 字符串中获取冒号后面的内容，冒号有多个

Dim iRet =0, mRet=0
Dim name =""
name="姓名::张小三"
Do 
    iRet = InStr(name,":",1,false)
    name = Right(name,len(name)-iRet)

    mRet = InStr(name,":",1,false)
    if mRet =0
        TracePrint(name)
        break
    End if
Loop