Öppna worddokument ifrån en listbox

Skall detta vara så svårt??
Jag har krabbat länge och väl, men oftast så misslyckas jag.

I en listbox, som fylls med word dokument så vill jag kunna klicka på ett namn, och öppna word.
Så här försöker jag

Dim Index As Long
Dim strPath As String
Dim strFileName As String
Dim ObjWord As Word.Application

   
strPath = "h:\privat\"
   Set ObjWord = New Word.Application

   For Index = 0 To Listruta.ListCount - 1
       If Listruta.Selected(Index) Then
           strFileName = strPath & Listruta.Column(1)
            
            ObjWord.Documents.Open (strFileName)
            ObjWord.Application.Visible = True
       FelKod
       End If
  Next

Han står och tänker ett slag, sen ingenting mera.
Hur göra??