Reading all values in a registry subkey

[MarkT]

With the attached module and some code like this you can get there. I have used list box instead of a text box but I assume you can switch it to fit your needs.

Private Sub Form_Load()
Dim RegArray() As String
Dim intLoop As Integer
 
 RegArray = EnumKeyValues(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run")
 
 For intLoop = 0 To UBound(RegArray)
     List1.AddItem RegArray(intLoop)
 Next intLoop
 
End Sub