Private oApi as REAPI
Private Sub Form_Load()
   Dim lCntr As Long
   Dim vDatabase As Variant
   Dim sRegPath As String
   Dim sUnderscore As String
   Dim lResult As Long
   Dim lRightLen As Long
   Dim sDbNum As String

   Set oApi = New REAPI
   vDatabase = oApi.GetAvailableRegistryKeys

   With cboDatabases
       .Clear
       For lCntr = 1 To UBound(vDatabase)
           sRegPath = vDatabase(lCntr)
           strUnderscore = "_"
           lResult = InStr(1, sRegPath, strUnderscore)
           lRightLen = Len(sRegPath) - lResult
           sDbNum = Right(sRegPath, lRightLen)  
       .AddItem Val(sDbNum)
       Next lCntr
   End With
End Sub


To locate the database number manually in the registry, please review the following article: How to determine the database number in the registry

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.