How to check if a Word Style exists

[RAK_da_Pira]

My code for this is:

Sub test_style_exists()
    Dim test_style As String    
    test_style = "Quota"
    MsgBox "Style " & test_style & " exists in " & ActiveDocument.Name & "?" & vbCr & _
    style_exists(ActiveDocument, test_style)        
End Sub

Function style_exists(test_document As Word.Document, style_name As String) As Boolean
    style_exists = False
    On Error Resume Next
    style_exists = test_document.Styles(style_name).NameLocal = style_name    
End Function

Any comments on using set MyStyle versus testing NameLocal?

Richard.