Dim verlauf As RegistryKey
 
        Try
        verlauf = Registry.CurrentUser.OpenSubKey( _
        "Software\Microsoft\MSNMessenger\PerPassportSettings\" & x, True)
         verlauf.SetValue("MessageLoggingEnabled", New Byte() {Hier Muss der _
           Wert rein!} _
        , RegistryValueKind.Binary)
        verlauf.Close()
        Catch ex As Exception
 
        End Try