A MSSQL Stored Procedure to remove non numeric characters from a VARCHAR

CREATE FUNCTION [dbo].[fnStrRemoveNonNumeric](@strText VARCHAR(1000))
RETURNS VARCHAR(1000)
AS
BEGIN
    WHILE PATINDEX('%[^0-9]%', @strText) > 0
    BEGIN
        SET @strText = STUFF(@strText, PATINDEX('%[^0-9]%', @strText), 1, '')
    END
    RETURN @strText
END