Private Sub Application_OpenUrl (Url As String, Data As Object, SourceApplication As String) As Boolean
'read file
HandleIncomingFile(FileText)
Return True
End Sub
Private Sub HandleIncomingFile(s As String)
Do While SomeList.IsInitialized = False
Sleep(500)
Loop
'continue here
End Sub