OpenFileDialog и его имя в другом Sub

[psybehemoth]

Подскажите как реализовать такую штуку:

Есть Windows Form (на VB) помимо прочих элементов на ней имеется ТекстБокс и две кнопки ("Обзор" и "Run")

"Обзор" и TextBox связаны следующим образом:

Dim OFD As New OpenFileDialog With {.Filter = "Все файлы|*.*}
        OFD.InitialDirectory = "C:\" 
        OFD.Title = "Выбери файл для обработки"
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBoxOFD.Text = OFD.FileName
        End If

Есть другой Sub (срабатывающий на кнопку "Run"), который открывает Word и выполняет некоторый макрос Например:

Dim oWord As Word.Application
        Dim oDoc As Object
        oWord = CreateObject("Word.Application")
        oWord.Visible = True
        oDoc = oWord.Documents.Open(OFD.FileName)
        oWord.Activate()
        With oWord.Selection.Find
            .ClearFormatting()
            .Replacement.ClearFormatting()
            .Text = "А"
            .Replacement.Text = "ААА"
            .Forward = True
            .Wrap = Word.WdFindWrap.wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute(Replace:=Microsoft.Office.Interop.Word.WdReplace.wdReplaceAll)
        End With

Возникает ошибка ("OFD" не объявлен. Может быть недоступен из-за своего уровня защиты")

Вопрос: Как их связать?)

P.S.: Причем если второй кусок кода присовокупить к первому - работает корректно, но открывает Word сразу после выбора файла (что нежелательно)

[doober]

 oDoc = oWord.Documents.Open(TextBoxOFD.Text)

[psybehemoth]

Большое спасибо!
Работает хорошо)