Dim MeinKey As RegistryKey
        Dim MeinWert As String
        MeinKey = Registry.LocalMachine.OpenSubKey( _
          "SOFTWARE\Cedros\WebRoute\Adapter0\CPN\UMTS\DefConfg\DefSettings")
        MeinWert = MeinKey.GetValue("CPIN")
        MeinKey.Close()
        TextBox1.Text = MeinWert

EALA FREYA FRESENA