Imports System Imports Microsoft.Win32 Imports Microsoft.VisualBasic Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Rk As RegistryKey Dim WoWInstallPath As Object Rk = Registry.CurrentUser.OpenSubKey("Software\Blizzard Entertainment\World of Warcraft") WoWInstallPath = Rk.GetValue("InstallPath") MsgBox(WoWInstallPath) End Sub End Class,