Attribute VB_Name = "basIdent"
'------------------------------------------
'   (c) 1999 Trigeminal Software, Inc.  All Rights Reserved
'------------------------------------------
Option Compare Text
Option Explicit

Private Declare Function EbIsValidIdent Lib "vba6.dll" Alias "#1003" (ByVal lpstrIdent As Long, ByRef pfIsValid As Long) As Long

'------------------------------------------------------------
'   FIsValidIdentC
'
'   A Vb friendly wrapper around VBA's famous
'   export, EbIsValidIdent. It saves us the trouble
'   of manually validating names to make sure they are not
'   keywords like AddressOf and Declarw
'------------------------------------------------------------
Public Function FIsValidIdentC(stName As String) As Boolean
    Dim pfValidIdent As Long
    
    ' See id we have a valid identifier
    If EbIsValidIdent(StrPtr(stName), pfValidIdent) = 0 Then
        FIsValidIdentC = CBool(pfValidIdent)
    End If
End Function