Выбор места загрузки файла в VB

Формулировка задачи:

Добрый день! Работаю над программой в которой нужно загрузить данные из microsoft word .DOC файла в текстовое поле Очень прошу помочь настроить кнопку, что бы при нажатии на нее пользователь мог сам выбрать папку из которой будет загружаться данный файл. То есть кнопка запрограммирует нужный путь к папке, далее из которой будет выгружаться мой файл 1.doc.. Вот что я сам написал, но по умолчанию стоит папка system32. название файла будет в любом случае 1.doc.

Set objWord = CreateObject("Word.Application")
objWord.Visible = False
objWord.Documents.Open ("1.doc")
Text1.Text = objWord.ActiveDocument.Content

Заранее спасибо!

Решение задачи: «Выбор места загрузки файла в VB»

textual
                            Листинг программы 
                        

                            Sub ShowFileDialog()
Dim i As Long
Set objWord = CreateObject("Word.Application")
objWord.Visible = False
'objWord.Documents.Open ("1.doc")
'Text1.Text = objWord.ActiveDocument.Content
    Dim dlgOpen 'As FileDialog
    Set dlgOpen = objWord.FileDialog(FileDialogType:=1)
    With dlgOpen
        .AllowMultiSelect = False 'True
        .Show
        For i = 1 To .SelectedItems.Count
          objWord.Documents.Open (.SelectedItems(i))
          Text1.Text = objWord.ActiveDocument.Content
        Next i
    End With
End Sub
                        