Dim cc As ContentChooser
cc.Initialize("cc")
cc.Show("audio/*", "Choose audio file") 'change mime type
Wait For CC_Result (Success As Boolean, Dir As String, FileName As String)
If Success Then
'your code here
Else
MsgboxAsync("open file error","")
End If