From a Delimited String, fetching the nth Value

CREATE Function dbo.StringToArray(@pstrValue Varchar(1000),@pstrDelim varchar(1),@pintPosition Int)
Returns Varchar(200)
As
Begin
Declare @strDelim varchar(1),
@Count Int,
@intPosition Int,
@strReturn varchar(200),
@intstartLocation Int
Select @strDelim = @pstrDelim,@Count = 1,@intPosition = 0,@intStartLocation = 1
While ( @Count >0 and @intPosition < @pintPosition and Len(@pstrValue) > @intPosition )
Begin
Select @Count = CharIndex(@strDelim,@pstrValue,@intStartLocation)

If @Count > 0  
Begin
Select @intPosition = @intPosition +1

Select @strReturn = Substring(@pstrValue,@intstartLocation  ,@Count -@intstartLocation)
Select @intstartLocation = @Count + 1
End
Else
Select @strReturn = Substring(@pstrValue,@intstartLocation,Len(@pstrValue))
End
Return @strReturn 
End