이 프로그램 대체 뭐가 문제인가요.

컨트롤 배열한 커맨드(B)를 클릭할 때마다 텍스트1에 적힌 순서대로 N=~, ㅖ=~, S=~에 있는 글자들을 지우려고 하는건데요.
안되네요.. 이것 때문에 며칠간 머리가 터질것 같습니다..;;
Private Sub B_Click(Index As Integer)Text1.Text = Replace(Text1.Text, Split(Split(Text1.Text, N=)(Index + 1), )(0), , , 1)Text1.Text = Replace(Text1.Text, Split(Split(Text1.Text, P=)(Index + 1), )(0), , , 1)Text1.Text = Replace(Text1.Text, Split(Split(Text1.Text, S=)(Index + 1), )(0), , , 1)End Sub
(chum boo pa il)