Function FKey As Boolean
For Each str As String In Microsoft.Win32.Registry.CurrentUser.GetSubKeyNames ' 
' Verzeichnis eintragen
If str = "Test" ' erstelleten Key eintragen
Return True ' Function wird veralssen
End If
Next
Return False ' Function wird verlassen
End Function

MfG
Visual Studio .Net Team Suite 2008 - Meine neue lieblings IDE