TITLE BLOCK LIST OF PERSONS

[JeniaL]

i'm customizing title block macro and stuck with a list of persons. how can i add several persons when message pops up?
here's a code
Sub CATFillField(string1 As String, string2 As String, string3 As String)
'-------------------------------------------------------------------------------
'How to call a dialog to fill in manually a given text
'-------------------------------------------------------------------------------
Dim TextToFill_1 As DrawingText
Dim TextToFill_2 As DrawingText
Dim Person As String

Set TextToFill_1 = Texts.GetItem(string1)
'Set TextToFill_2 = Texts.GetItem(string2)

Person = TextToFill_1.Text


Person = InputBox("DRAWING CREATED BY:")


TextToFill_1.Text = Person
'TextToFill_2.Text = ""&Date
End Sub

Sub CATDrw_DrawnBy( targetSheet as CATIABase )
'-------------------------------------------------------------------------------
'How to update a bit more the FTB
'-------------------------------------------------------------------------------
If Not CATInit(targetSheet) Then Exit Sub

If CATCheckRef(0) Then Exit Sub
CATFillField "TitleBlock_Text_NAME_DRAWN", "TitleBlock_Text_DeDate_1", "designed"
CATExit targetSheet
End Sub

as for now i get an empty field and i need to fill manually a name.