Frankly I would put the code in the macro that calls the userform rather than in the userform itself e.g.
Sub RunProcess()
Dim strDIR As String
Dim SeznamVitInv(8) As Variant
Dim oFrm As New frmVIIN
strDIR = Options.DefaultFilePath(wdWorkgroupTemplatesPath) & Chr(92)
SeznamVitInv(0) = "kppvin27.dot"
SeznamVitInv(1) = "kppvipi4.dot"
SeznamVitInv(2) = "kpverbon.dot"
SeznamVitInv(3) = "kpfindot.dot"
SeznamVitInv(4) = "IPZI.dot"
SeznamVitInv(5) = "kpviipsa.dot"
SeznamVitInv(6) = "kpinv65l.dot"
SeznamVitInv(7) = "KPPVIP5A.dot"
With oFrm
With .lstObecnei
.AddItem "Soubor pojistných podmínek Vital Invest ze dne 22.4.2015 .......................................................KPPVIN27"
.AddItem "Informace pro zájemce o pojištení Vital Invest ze dne 22.4.2015 ..................................................KPPVIPI4"
.AddItem "Vernostní bonus ..........................................................................................................KPVERBON"
.AddItem "Financní dotazník .........................................................................................................KPFINDOT"
.AddItem "Doplnující informace k pojistným produktum obsahujícím investicní složku .......................................IPZI"
.AddItem "Dodatecné informace k fondu KB Privátní správa aktiv 4 Popular..................................................KPVIIPSA"
.AddItem "Prohlášení klienta vztahující se k fondum v rámci svého investicního životního pojištení .......................KPINV65L"
.AddItem "Dodatecné informace k fondu KB PSA 5D - Popular A ...............................................................KPPVIP5A"
.ListIndex = -1
End With
.Show
'Documents.Add strDIR & SeznamVitInv(.lstObecnei.ListIndex)
MsgBox strDIR & SeznamVitInv(.lstObecnei.ListIndex)
End With
Unload oFrm
Set oFrm = Nothing
End Sub
You can simply hide the form when the listbox is clicked, or hide it from the button that closes the userform.
I have simply added a messagebox for testing as I don't have your templates.
Private Sub lstObecnei_Click()
Me.Hide
End Sub