REM  *****  BASIC  *****

Dim oDialog1 As Object

Sub Dialog1Show
    DialogLibraries.LoadLibrary("Standard")
    oDialog1 = CreateUnoDialog( DialogLibraries.Standard.test_dialog )
    oDialog1.Execute()
End Sub

Sub read_dialog
    Dim cell_val
    ot_1 = oDialog1.GetControl("TextField1")
    cell_val = ThisComponent.Sheets(0).getCellByPosition(0, 0)
    msgbox cell_val.String & chr(13) & "Что то: " & ot_1.Text
End Sub