参考代码
Dim str As String = "123:456"Dim idx As Integer = str.IndexOf(":")If idx >= 0 Then str = str.SubString(idx+1)End If
msgbox(str)