主题：第一次用字符串截取，求指导[已解决]

 这个意思？

Dim str As String = "RJ,C102不良,拒绝有效期至2016/7/27,当前审批处理时间2016/4/28 14:49:04;"

Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "RJ.*不良")
msgbox(mc.count)
If mc.count > 0 Then
    msgbox(mc(0).value)
End If