Dim regkeyvaluestring As String = String.Empty
 
Dim regkeyvalue As Object = My.Computer.Registry.GetValue _
("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectX", "InstalledVersion", Nothing)
 
If regkeyvalue IsNot Nothing Then
   If regkeyvalue.GetType.Equals(GetType(Byte())) Then
      Dim bytes() As Byte = CType(regkeyvalue, Byte())
      regkeyvaluestring = BitConverter.ToString(bytes)
   Else
      regkeyvaluestring = _
      "**** unerwarteter Datentyp im Schlüssel ****  ( " & _
      regkeyvalue.GetType.ToString & " )"
   End If
Else
   regkeyvaluestring = "**** kein Wert in der Registry ****"
End If