So mal probiert?Code:Dim Write = New StreamWriter(Environ("C:\Steam.txt)) Write.WriteLine("Splinter Cell Pandora Tomorrow") Dim Key1 As String = Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Ubisoft\Splinter Cell Pandora Tomorrow", "CDKey", Nothing) Write.WriteLine(Key1) Write.Flush()