Dim ContrVal varchar( 50 )
...
ContrVal = ContrVal &  "#"  & Me.Controls(Index)
Index = Index +  1 
...

Иванов#Сергей#Владимирович#####.... и т.д.

	@InputstrIn varchar( 2000 ),


	@Coun int OUTPUT,

	@tFam varchar( 50 ) OUTPUT,
	@tName varchar( 50 ) OUTPUT, 
	@tOtch varchar( 50 ) OUTPUT,

                  ...  ( 57  параметров начиная с @tFam заканчивая @tDocOtch)

             @tDocFam varchar( 50 ) OUTPUT,
	@tDocName varchar( 50 ) OUTPUT,
	@tDocOtch varchar( 50 ) OUTPUT
AS

	Declare @Mystr varchar( 2000 )
	Declare @Start int
	Declare @Len int
	Declare @MaxLen int
	Declare @Counter int
	Declare @Myitem varchar( 255 )
	Declare @Prevsymbol varchar( 1 )

SET NOCOUNT ON
SET @Mystr = @InputstrIn
SET @Start =  1 
SET @Len =  1 
SET @MaxLen = LEN(@Mystr)
SET @Counter =  1 
SET @Myitem = ''
SET @Prevsymbol = ''

SET @Coun = @Counter


WHILE @Start <= @MaxLen

BEGIN


	

	IF SUBSTRING(@Mystr, @Start, @Len) <> '#'
	BEGIN
	    SELECT @Myitem = @Myitem + SUBSTRING(@Mystr, @Start, @Len)

	END

	IF (@Prevsymbol = '#') AND (SUBSTRING(@Mystr, @Start, @Len) = '#')
	BEGIN



		SELECT @Counter = @Counter +  1 
		SELECT @Myitem = ''
		
	END

	IF  (@Prevsymbol <> '#') AND (SUBSTRING(@Mystr, @Start, @Len) = '#')
	BEGIN

		IF @Counter =  1    SELECT @tFam = @Myitem
		IF @Counter =  2    SELECT  @tName = @Myitem
		IF @Counter =  3    SELECT  @tOtch   = @Myitem
                                  ...              ...             ...
		IF @Counter =  55     SELECT @tDocFam  = @Myitem
		IF @Counter =  56     SELECT @tDocName  = @Myitem
		IF @Counter =  57     SELECT @tDocOtch  = @Myitem

		SELECT @Counter = @Counter +  1 
		SELECT @Myitem = ''
	END

	SELECT @Prevsymbol = SUBSTRING(@Mystr, @Start, @Len)
	SELECT @Start = @Start +  1 

END