Error with CreateSingleAlarm function

Sub CreateSingleAlarm()

' message must not be created before

' message Text ID need to be created before in text library

'declarations

Dim objHMIGO As HMIGO

Set objHMIGO = New HMIGO

'create a tag

objHMIGO.CreateSingleAlarm 0, SINGLE_ALARM_ERROR, 2, 451, "tres", 5

Set objHMIGO = Nothing

End Sub

I linked a screenshot of my alarm logging window and another one of the text library.
I want to create an alarm "incident, avertissemnt" whose properties are in the "type2" window.
I look forward to your response.
Thanks !