Sub MAIN x = - 1 Begin Dialog UserDialog 320, 138, "Add a link" Text 10, 6, 49, 13, "", .Text1 TextBox 10, 22, 160, 18, .link_dir Text 10, 46, 87, 13, "Description", .Text2 TextBox 10, 62, 300, 18, .link_desc OKButton 10, 97, 88, 21 CancelButton 145, 97, 88, 21 End Dialog While x = - 1 Dim dlg As UserDialog x = Dialog(dlg) If x = - 1 Then Insert " + Chr$(34) + dlg.link_dir + Chr$(34) +   " + dlg.link_desc + "

" + Chr$(11) Wend End Sub