The message filter indicated that the application is busy. (Exception from HRESULT: 0x8001010A (RPC_E_SERVERCALL_RETRYLATER))
If (soort = "ppt" Or soort2 = "pptx") Then
Dim oPowerPoint As PowerPoint.Application
Dim oSlides As PowerPoint.Slides
Dim oShapes As PowerPoint.Shapes
Dim oP As PowerPoint.Presentation
Dim oSh As PowerPoint.Shape
Dim it As String
Dim strText As String
'Dim sReplace1 As String = "ABC"
Dim i As Integer
Dim j As Integer
Dim Ctr As Integer
Dim myProcesses As Process() = Process.GetProcessesByName("POWERPNT.EXE")
Dim myProcess As Process
...
Go to the complete details ...