想获取文本中每行用“！”分开的最后一组数。
写了行代码但是只能获取每行最多出现一个“！”分开的字符
有什么办法 可以多个“！”还能获取到最后到字符？

感谢各位 ！我自己解决了
Private Sub Command1_Click()
a = Split(Text1.Text, vbCrLf)
Text2.Text = ""
For i = 0 To UBound(a)
b = Split(a(i), "!")
c = Val(UBound(b))
Text2.Text = Text2.Text & b(c) & vbCrLf
Next
End Sub

[此贴子已经被作者于2018-12-15 01:21编辑过]

这样 第二行如何去判断？
1！2！3
1!2
如果存在多行就不能获取每行的最后一组数