楼主的意思是把答案和试题分开来吗?
Public Function ReturnStr(ByVal str1 As String, ByVal str2 As String) As String
Dim s1 As Integer, s2 As Integer
ReturnStr = ""
If str1.Contains(str2) Then
s1 = str1.IndexOf(str2) + str2.Length
For s2 = s1 To str1.Length
If str1.Chars(s2) = "," Then
GoTo s1
End If
ReturnStr = ReturnStr + str1.Chars(s2)
Next s2
End If
s1:
End Function