Public Function mywinkey(ByVal path As String, ByVal name As String) As String
        Dim A As Object = My.Computer.Registry.GetValue(path, name, 0)
        Dim B As String = ""
        Dim C As String = ""
        Dim D As Integer = 52
        Dim E As Integer = 67
        Dim F(24) As String
        Dim G As Integer = 29
        Dim H As Integer = 15
        Dim J(15) As String
        Dim K(30) As String
        Dim L As String = ""
 
        If A Is Nothing Then Return "No Value"
 
        Try
            For i As Integer = LBound(A) To UBound(A)
                B = B & "" & Hex(A(i))
            Next
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
        F(0) = "B" : F(1) = "C" : F(2) = "D" : F(3) = "F" : F(4) = "G" : F(5) = "H"
        F(6) = "J" : F(7) = "K" : F(8) = "M" : F(9) = "P" : F(10) = "Q" : F(11) = "R"
        F(12) = "T" : F(13) = "V" : F(14) = "W" : F(15) = "X" : F(16) = "Y"
        F(17) = "2" : F(18) = "3" : F(19) = "4" : F(20) = "5" : F(21) = "6" : F(22) = "7"
        F(23) = "8" : F(24) = "9"
 
        Try
            For i = D To E
                J(1 - D) = A(i)
                C = C & "" & Hex(J(i - D))
 
            Next
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
 
        For i As Integer = G - 1 To 0 Step -1
            If ((i + 1) Mod 6) = 0 Then
                K(i) = "-"
                L = L & "-"
            Else
                Dim M As Integer = 0
                For n As Integer = (H - 1) To 0 Step -1
                    Dim O As Integer = ((M * 2 ^ 8) Or J(n)) ' this dim is not a zero but the letter O
                    J(n) = O \ 24 ' this is also the letter O
                    M = (O Mod 24) ' this is alsi the letter O
                Next
                K(i) = F(M)
                L = L & F(M)
 
            End If
        Next
        Return StrReverse(L)
 
    End Function
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox20.Text = mywinkey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DigitalProductId")
 
    End Sub

(path, name, 0)