이 프로그램 코드가 동작하지 않는데 어디가 문제일까요?

컨트롤 배열의 버튼을 누르면 텍스트1에 적힌 순서대로 N, P, 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