What is the best way to get the default .xla add-in path?

Will this always be Application.UserLibraryPath ?

Or should I use a function like this:

Function GetDefaultAddinPath(Optional strIdentifier _
                            As String = "\addins\") As String

  Dim i As Long
  Dim lCount As Long
  Dim lPos As Long

  strIdentifier = UCase(strIdentifier)
  lCount = Application.AddIns.Count

  For i = 1 To lCount
     lPos = InStr(1, UCase(Application.AddIns(i).FullName), _
                  strIdentifier, _
                  vbBinaryCompare)
     If lPos > 0 Then
        GetDefaultAddinPath = Left$(Application.AddIns(i).FullName, _
                                    lPos + Len(strIdentifier) - 1)
        Exit Function
     End If
  Next i

End Function

RBS