질문하나 드립니다..

Public Function Filtering(ByVal Course As String, ByVal Chr As String) As String
Dim i As Integer
For i = 1 To UBound(Split(Course, Chr))
Filtering = Split(Course, Chr)(i)
Next i
End Function
대충소스보시면
대상 = text1.text
text1.text 의 내용 = ,바보,멍청이,똥개
라고 하면
msgboxFiltering(text1.text,,) 이렇게 하면 잘되긴하는데 맨마지막에 똥개만 메세지박스로 출력됩니다앞의 바보 멍청이까지 출력되게하려면 어떻게하나요?