Private Sub List2_DblClick()
  Dim objWDApp As New Word.Application
  Dim var_WordDocument As New Word.Document
  Set var_WordDocument = CreateObject("Word.Document")
  objWDApp.Documents.Open List2.Text
  objWDApp.Visible = True
  var_WordDocument.Close
  Set var_WordDocument = Nothing
End Sub