字符串分割解决办法

字符串分割我现在的字符串是这样的ABXC,ADADA,EWADDA,EAEA我现在想提取里面最后一个逗号后面EAEA这怎么实

字符串分割
我现在的字符串是这样的  ABXC,ADADA,EWADDA,EAEA

我现在想提取里面最后一个逗号后面  EAEA

这怎么实现呢?

求大神指教
[解决办法]


Sub aa()
Dim s As String
Dim loc As Integer
s = "ABXC,ADADA,EWADDA,EAEA"
loc = InStrRev(s, ",")
Debug.Print Right(s, Len(s) - loc)
End Sub