everse(Mid$(sRegister, 1, 8))).SubItems(1) = CacheTLB_Select(strtol_(StrReverse(Mid$(sRegister, 1, 8)), 2))
            .Add(, , StrReverse(Mid$(sRegister, 9, 8))).SubItems(1) = CacheTLB_Select(strtol_(StrReverse(Mid$(sRegister, 9, 8)), 2))
            .Add(, , StrReverse(Mid$(sRegister, 17, 8))).SubItems(1) = CacheTLB_Select(strtol_(StrReverse(Mid$(sRegister, 17, 8)), 2))
            .Add(, , StrReverse(Mid$(sRegister, 25, 8))).SubItems(1) = CacheTLB_Select(strtol_(StrReverse(Mid$(sRegister, 25, 8)), 2))
            
            sRegister = StrReverse(Right$(String$(32, "0") & ltoa_(outEDX, 2), 32))
            
            .Add(, , StrReverse(Mid$(sRegister, 1, 8))).SubItems(1) = CacheTLB_Select(strtol_(StrReverse(Mid$(sRegister, 1, 8)), 2))
            .Add(, , StrReverse(Mid$(sRegister, 9, 8))).SubItems(1) = CacheTLB_Select(strtol_(StrReverse(Mid$(sRegister, 9, 8)), 2))
            .Add(, , StrReverse(Mid$(sRegister, 17, 8))).SubItems(1) = CacheTLB_Select(strtol_(StrReverse(Mid$(sRegister, 17, 8)), 2))
            .Add(, , StrReverse(Mid$(sRegister, 25, 8))).SubItems(1) = CacheTLB_Select(strtol_(StrReverse(Mid$(sRegister, 25, 8)), 2))
        End With
        
        
        txtEAX.Text = Right$("00000000" & ltoa_(outEAX, 16), 8)
        txtEBX.Text = Right$("00000000" & ltoa_(outEBX, 16), 8)
        txtECX.Text = Right$("00000000" & ltoa_(outECX, 16), 8)
        txtEDX.Text = Right$("00000000" & ltoa_(outEDX, 16), 8)
        
    Exit Sub
    VB_Error:
    Call Error_VB(Err, sLocation & "\Form_Load")
    Resume Next
    End Sub
    
    Private Function CacheTLB_Select(ByVal lValue As Long) As String
    On Error GoTo VB_Error
    
        Dim sDescriptor