Dim fileext As String = ".xls" ' die zu suchende dateiendung
Dim rk As Microsoft.Win32.RegistryKey
rk = Microsoft.Win32.Registry.ClassesRoot.OpenSubKey(fileext, True)
If rk Is Nothing Then
  MessageBox.Show("Kein Programm vorhanden, welches mit der Dateiendung " + _
    fileext + " verknüpft ist !")
Else
  Dim cont As String = rk.GetValue("Content Type").ToString
  MsgBox("Die Dateiendung ist mit " + cont + " verknüpft!")
End If