4 Dim str As String Private Sub Command

4. Записване на кода Запишете следният код: Dim str As String Private Sub Command 1_Click() Common. Dialog 1. Show. Open Common. Dialog 1. File. Name For Input As #1 Line Input #1, str Text 1. Text = str End Sub