I have a sp to remove special characters from an input string, and it works fine, but I am wondering if there is a slicker (is that a word?) way to do this. The code is:

ALTER PROCEDURE [dbo].[sRemoveSCW]
@StringIn VARCHAR(2000),
@StringOut VARCHAR(2000) OUTPUT
AS
BEGIN
	SET NOCOUNT ON;

	SET @StringOut = REPLACE(@StringIn, '~', '')
	SET @StringOut = REPLACE(@StringOut, '`', '')
	SET @StringOut = REPLACE(@StringOut, '!', '')
	SET @StringOut = REPLACE(@StringOut, '@', '')
	SET @StringOut = REPLACE(@StringOut, '#', '')
	SET @StringOut = REPLACE(@StringOut, '$', '')
	SET @StringOut = REPLACE(@StringOut, '%', '')
	SET @StringOut = REPLACE(@StringOut, '^', '')
	SET @StringOut = REPLACE(@StringOut, '&', '')
	SET @StringOut = REPLACE(@StringOut, '*', '')
	SET @StringOut = REPLACE(@StringOut, '(', '')
	SET @StringOut = REPLACE(@StringOut, ')', '')
	SET @StringOut = REPLACE(@StringOut, '+', '')
	SET @StringOut = REPLACE(@StringOut, '=', '')
	SET @StringOut = REPLACE(@StringOut, '{', '')
	SET @StringOut = REPLACE(@StringOut, '}', '')
	SET @StringOut = REPLACE(@StringOut, '[', '')
	SET @StringOut = REPLACE(@StringOut, ']', '')
	SET @StringOut = REPLACE(@StringOut, '|', '')
	SET @StringOut = REPLACE(@StringOut, ';', '')
	SET @StringOut = REPLACE(@StringOut, ':', '')
	SET @StringOut = REPLACE(@StringOut, '<', '')
	SET @StringOut = REPLACE(@StringOut, '>', '')
	SET @StringOut = REPLACE(@StringOut, '?', '')
	SET @StringOut = REPLACE(@StringOut, ',', '')
	SET @StringOut = REPLACE(@StringOut, ' ', '')
	SET @StringOut = REPLACE(@StringOut, '/', '')
	SET @StringOut = REPLACE(@StringOut, '\', '')
	SELECT @StringOut
END

Any input or comments are appreciated!