Private moAPI As FE_API

Private Sub Command1_Click()

   Dim lCntr As Long
   Dim vDatabase As Variant
   Dim sRegPath As String
   Dim strUnderscore As String
   Dim lResult As Long
   Dim lRightLen As Long
   Dim sDbNum As String
  
   Set moAPI = New FE_API
  
   vDatabase = moAPI.GetAvailableRegistryKeys
  
   For lCntr = 1 To UBound(vDatabase)
  
       sRegPath = vDatabase(lCntr)
       strUnderscore = "_"
       lResult = InStr(1, sRegPath, strUnderscore)
       lRightLen = Len(sRegPath) - lResult
       sDbNum = Right(sRegPath, lRightLen)
      
       MsgBox Val(sDbNum)
  
   Next lCntr

End Sub

Disclaimer: We provide programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes you are familiar with Microsoft Visual Basic and the tools used to create and debug procedures. Blackbaud Customer Support may help explain the functionality of a particular procedure, but we will not modify, or assist you with modifying, these examples to provide additional functionality.