Write a function to split comma's in Sql Server

Drop function dbo.SplitingCommas
Go
Create function dbo.SplitingCommas(@String nvarchar(4000), @Delimiter char(1))
Returns @Results Table (Id int identity(1,1),Items nvarchar(4000))
As

Begin
Declare @Index int
Declare @Slice nvarchar(4000)
Select @Index = 1

If @String Is NULL Return

While @Index != 0
Begin

Select @Index = CharIndex(@Delimiter, @String)
If @Index != 0
Select @Slice = left(@String, @Index - 1)
else
Select @Slice = @String

Insert into @Results(Items) Values (@Slice)

Select @String = right(@String, Len(@String) - @Index)

If Len(@String) = 0 break
End

Return
End