Dim cc As ContentChooser
cc.Initialize("cc")
cc.Show("*/*","Open File")
Sub cc_Result (Success As Boolean, Dir As String, FileName As String)
Dim nameFile As String 'in Globals
Dim pathDir As String 'in Globals
If Success = True Then
nameFile = FileName
pathDir = Dir
End If
End Sub