Dim DisplayVersion As String = String.Empty
 
Using Key As Microsoft.Win32.RegistryKey = _
   Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
   "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\VLC media player", _
   Microsoft.Win32.RegistryKeyPermissionCheck.ReadSubTree)
 
   If Key IsNot Nothing Then
      DisplayVersion = CStr(Key.GetValue("DisplayVersion"))
   End If
 
End Using