Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click
Using Key As RegistryKey = Registry.LocalMachine.OpenSubKey( _
"SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\VLC media player", _
RegistryKeyPermissionCheck.ReadSubTree)
Dim DisplayVersion As String = CStr(Key.GetValue("DisplayVersion"))
Label1.Text = DisplayVersion
End Using
End Sub

DisplayVersion As String = CStr(Key.GetValue("DisplayVersion"))