Use the debugger.
Put a breakpoint on the line
Status = UCase(Val(Texta))
and run your program.
When you reach that line, it will stop, and give you control. Look at
Texta
, then look at your code, and at your data and work out what should happen manually. Then single step each line checking that what you expected to happen is exactly what did. When it isn't, that's when you have a problem, and you can back-track (or run it again and look more closely) to find out why. It will allow you to look at exactly what is in
Status
and that should help you work out why it doesn't match your strings.