Prompt message creation sample

Sub PromptMessageSample()
    Dim oPO As PromptsOptions
    Set oPO = ThisApplication.PromptsOptions
    
    Dim oPMs As PromptMessages
    Set oPMs = oPO.PromptMessages
    
    Dim oPM As PromptMessage
    
    On Error Resume Next
    Set oPM = oPMs.Item("User_defined_prompt")
    
    If Err Then
        Set oPM = oPMs.Add("User_defined_prompt", "This is not allowed", vbOKCancel, vbCritical, "Inventor", vbDefaultButton1, kNoRestrictions)
    End If
    
    On Error GoTo 0
    
    oPM.Display
End Sub

    Dim oPO As PromptsOptions
    oPO = ThisApplication.PromptsOptions
    
    Dim oPMs As PromptMessages
    oPMs = oPO.PromptMessages
    
    Dim oPM As PromptMessage
    
    On Error Resume Next
    oPM = oPMs.Item("User_defined_prompt")
    
    If Err.Number > 0 Then
        oPM = oPMs.Add("User_defined_prompt", "This is not allowed", vbOKCancel, vbCritical, "Inventor", vbDefaultButton1, kNoRestrictions)
    End If
    
    On Error GoTo 0
    ThisApplication.SilentOperation = False
    oPM.Display()