求VB高手 通过拆分数据方法 实现我想表达的这样数据 请问如何实现？

如：ABL.Text = "AB01: A—错误"
 现在要得到数据是：A—错误
要有完整的程序步骤

其他：i=instr(ABL.Text,":")
s=mid(ABL.Text,i+1)  '你要的字符串 Dim N%,i%,Sr$
N=Len(ABL.Text)
for i=1 to N
   if  mid(ABL.Text,i,1)=":"  Then ''' " 如果遇到字符 ："
     Sr=Right(ABL.Text,N-i):Exit Sub  '''  " 取该字符后面的所有字符，保存到Sr"
   End if
next
'''当然前面网友的答案也是可以的 

上一个：关于VB中过程的参数提示错误
下一个：vb变量类型