Recursive get part of string UDF

I've written this function in VB but converted it to be used in SQL Server.
This is my first contribution so be gentle.
Grtz, Guus

-- Recursive function to get a part of a string
CREATE FUNCTION dbo.fn_GetPart(@strText varchar(200), @strSep varchar(1), @intPart int )
RETURNS varchar(200)
AS
BEGIN

DECLARE @intY AS int
DECLARE @strRetVal AS varchar(200)

SET @strRetVal = ''

IF LEN(@strText) = 0
BEGIN
RETURN @strRetVal
END

SET @intY = CHARINDEX(@strSep, @strText)

IF @intPart > 1
BEGIN
SET @strRetVal = dbo.fn_GetPart(RIGHT(@strText, LEN(@strText) - @intY), @strSep, @intPart -1)
END
ELSE
BEGIN
IF @intY = 0
BEGIN
SET @strRetVal = @strText
END
ELSE
BEGIN
SET @strRetVal = LEFT(@strText, @intY -1)
END
END

RETURN @strRetVal

END