verse(tsRegister)
tsRegister = vbNullString
txtEAX.Text = txtEAX.Text & " " & Right$("00000000" & ltoa_(outEAX, 16), 8)
txtEBX.Text = txtEBX.Text & " " & Right$("00000000" & ltoa_(outEBX, 16), 8)
txtECX.Text = txtECX.Text & " " & Right$("00000000" & ltoa_(outECX, 16), 8)
txtEDX.Text = txtEDX.Text & " " & Right$("00000000" & ltoa_(outEDX, 16), 8)
Next lQuery
Exit Sub
VB_Error:
Call Error_VB(Err, sLocation & "\Form_Load")
Resume Next
End Sub