'Declaration of local tags

Dim fo

Dim path, FileName, PathFileName

Dim mode

Dim tab, return, j, TextLine, DataPerLine

Dim Timestamp

Const NEU=0

'Initialization of Tags

mode=8 '8 = Append

tab=vbTab

return=vbCr

DataPerLine = 5

Timestamp = Now

'Selection of the storage path

path ="C:\MTR\"

FileName =  Timestamp & ".txt"

PathFileName= path + FileName

'Starting error routine

On Error Resume Next

'Create a file object

Set fo= CreateObject("FileCtl.File")

'Check if any errors happend

If Err.Number<> 0 Then

ShowSystemAlarm "MTR1 - Error # " & CStr(Err.Number)& " "& Err.Description

Err.Clear

Exit Sub

End If

 There is more to if, but the error happen directly at the "ShowSystemAlarm "MTR1 - Error # " & CStr(Err.Number)& " "& Err.Description" line

I have the following error : #429 ActiveX component can't create object.

I've search on this and other forum but can't figure it out...

Software : WinCC Advanced 15.1

IPC: IPC377

Thank you,