I modified your last query a bit and obtained something that seems to be faster on SQL Server 2000:

SELECT distinct O.Name, O.Type
FROM
(
 select
 s1.id,
 cast(coalesce(s1.text, '') as varchar(8000)) +
 cast(coalesce(s2.text, '') as varchar(8000))
 as [text]
 from syscomments s1 left join syscomments s2
 on s2.id = s1.id and s2.colid = s1.colid + 1
) C
INNER JOIN sysobjects O ON C.id = O.Id
WHERE C.TEXT LIKE '%yourSearchString%'

CREATE PROCEDURE admin.pFindStringInCode

   @StringToFind nvarchar(50)

AS

SET NOCOUNT ON;



  SELECT  

    s.[name] AS SchemaName,

    o.[name] AS ObjectName,

    CAST(DENSE_RANK() OVER (ORDER BY s.[Name], o.[Name]) AS varchar) + '.' + 

    CAST(ROW_NUMBER() OVER (PARTITION BY s.[Name], o.[Name] ORDER BY s.[Name], o.[Name]) AS varchar) AS Instance,

    '...'+SUBSTRING(m.definition, CHARINDEX(@StringToFind, m.definition, n.Number), 100)+'...' AS Snippet 

  FROM

    sys.sql_modules AS m

    JOIN sys.objects AS o ON o.[object_id] = m.[object_id]

    JOIN sys.schemas AS s ON o.[schema_id] = s.[schema_id]

    CROSS JOIN admin.tbl_Numbers AS n

  WHERE 

   n.Number < LEN(m.definition) 

   AND SUBSTRING(m.definition, n.Number, LEN(@StringToFind)) = @StringToFind

   AND m.definition LIKE N'%'+ @StringToFind + N'%'

   

SET NOCOUNT OFF;

GO