Public Function GetValueName(ByVal HKEY As Long, ByVal SubKey As String, ByVal _
  ValueIndex As Long, Optional ByRef Typ As Long, Optional ByRef LastIndex As _
  Long) As String
 
    Dim lpData As Long
    Dim hKeyReturn As Long
    Dim Length As Long
    Dim dummy As Long
    Dim vorstr As String
    Dim ValueLength As Long
 
    Call RegOpenKeyEx(HKEY, SubKey, 0&, KEY_READ, hKeyReturn)
    ValueLength = 255
    vorstr = String(ValueLength, 0)
    Length = ValueLength
    dummy = RegEnumValue(hKeyReturn, ValueIndex, ByVal vorstr, ValueLength, 0&, _
      Typ, ByVal lpData, Length)
    If dummy = ERROR_NO_MORE_ITEMS Then
        GetValueName = ""
        Exit Function
    End If
    GetValueName = ' Chr(0) am Ende entfernen (z.B. Left(vorstr, InStr(vorstr, 
    ' Chr(0) -1)) )
    If GetValueName = "" And dummy = 0 Then
        GetValueName = GetValueName(HKEY, SubKey, ValueIndex + 1)
        LastIndex = ValueIndex + 1
    Else
        LastIndex = ValueIndex
    End If
    Call RegCloseKey(hKeyReturn)
 
End Function

Dim ValueName As String
Dim LastIndex As Long
 
Do
    ValueName = Trim$(GetValueName(HKEY_CURRENT_USER, "MeinRegKey", LastIndex, _
      , LastIndex))
    LastIndex = LastIndex + 1
    If ValueName = "" Then Exit Do
    'bearbeite ValueName
Loop