FormMain.ListKeys.AddItem strValue & Chr( 9 ) & "Test"

Public Type Uninstall
  Key As String
  UninstallString As String
  HasUninstall As Boolean
  RealVersion As String
End Type

Public UN() As Uninstall
Public HasUN As Boolean

Public Sub GetUninstallKeys()
...
   HasUN = False 'нет точек входа
    i =  0 
   strSearch = "TheProga"
...
                ' Populate the list with keys that match
                ' the search criteria
                If blnMatch Then
                    i = i +  1 
                    HasUN = True 'есть хотя бы одна точка входа
                    ReDim Preserve UN( 1  To i)
                    UN(i).Key = strValue
                End If
            End If
        
        ' Keep looking for more keys
        Loop While lngResult = ERROR_SUCCESS
...

Sub Main()
    GetUninstallKeys
'test
    Dim i As Integer
    Dim str As String
    If HasUN Then
        str = LBound(UN) & " To " & UBound(UN)
        For i = LBound(UN) To UBound(UN)
            str = str & vbCrLf & UN(i).Key
        Next i
    Else
        str = "TheProga not found!"
    End If
    MsgBox str
End Sub