Dim List_Msg As List
List_Msg.Initialize
List_Msg.Add("1")
InputList(List_Msg, "List", -1) ' => OK ( 1 )
Dim Str_Msg As String
Str_Msg = "123;456;789"
List_Msg.AddAll(Regex.Split(";", Str_Msg))
InputList(List_Msg, "List", -1) ' => OK ( 1 / 123 / 456 / 789 )
List_Msg.Add("Extra row")
InputList(List_Msg, "List", -1) ' => OK ( 1 / 123 / 456 / 789 / Extra )
' Insert first row
List_Msg.InsertAt(0, "This is the new first row")
InputList(List_Msg, "List", -1) ' => OK ( New / 1 / 123 / 456 / 789 / Extra )
' Remove first row
List_Msg.RemoveAt(0)
InputList(List_Msg, "List", -1) ' => OK ( 1 / 123 / 456 / 789 / Extra )