Private Sub optBuscar_Click()
 
Dim buscar As String
buscar = Dir(Path / vbArchive)
Do While buscar <> ""
      If InStr(buscar, Text1.Text) > 0 Then
          'El archivo contiene la palabra grande'
      Else
          'El archivo no contiene la palabra grande'
      End If
      buscar = Dir
Loop
 
Me.optBuscar = Text1.Text
 
 'Me.optBuscar = (Path / CommonDialog1.FileName)
MsgBox "se encuentra en buscar "
 
End Sub