Nel mio caso(posto di nuovo il codice):

Private Sub SmApri_Click()
Dim NomeDelFile As String
CommonDialog1.Filter = "File di testo (*.txt)|*.txt|Tutti i file (*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
CommonDialog1.Flags = cdlOFNAllowMultiselect
CommonDialog1.Flags = cdlOFNExplorer
NomeDelFile = CommonDialog1.FileName
End Sub

Questo codice(in basso quello che mi avete segnalato) come lo unisco?ho provato e mi da errore,devo creare un modulo.bas?

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_NORMAL = 1
Public Sub ExecFile(ByVal fileName As String)
Dim ret As Long
ret = ShellExecute(0, "open", fileName, vbNullString, vbNullString, SW_NORMAL)
If ret<=32 Then
Err.Raise 51, "ExecFile", "Impossibile eseguire il file """ & fileName & """." & vbCrLf & "Codice di errore di ShellExecute: " & LTrim(CStr(ret))+"."
End If
End Sub

Ps:mi correggo,non mi da errore,ma quando clicco su apri mi apre i documenti(su WinVista).Se faccio tasto destro apri invece è tutto normale,perchè??