список, по моему замыслу, тоже должен показать пустое значение
Эту фразу можно интерпретировать по разному.

Sub TestListBox2
Dim oDialog, oListbox, i
oDialog=CreateUnoDialog(DialogLibraries.GetByName("Standard").GetByName("Dialog1"))
oListBox=oDialog.getControl("ListBox1")
With oListBox.Model
.StringItemList=Array("1", "2", "3")
.MultiSelection=True
End With
oDialog.SetTitle "Выделите строку (строки)"
oDialog.Execute
' Сбрасываем отмеченные строки
With oListBox
For Each i In .getSelectedItemsPos()
.selectItemPos i, False
Next i
End With
oDialog.SetTitle "Нет выделенных строк?"
oDialog.Execute
End Sub