Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Label1.Text = My.Computer.Registry.GetValue( _
        "HKEY_LOCAL_MACHINE\SOFTWARE\.......", "Name", Nothing)
    End Sub

Label1.Text = BitConverter.ToString(My.Computer.Registry.GetValue( _
  "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\DirectX", "InstalledVersion", Nothing))

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist

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