How can I count uppercase and lowercase in every text I input?

[Chizzu]

Help me anyone! ASAP!
If I input something to TextBox, it will only counting the uppercase and the lowercase. How can I make that? My logic is bad
example
SunSHINE
Uppercase: 6
Lowercase: 2

[ABG]

set global uppercase to 0
set global lowercase to 0
for each i from 1 to length(Textbox1.Text)
  set local c to segment(Textbox1.Text,i,1)
  if upper(c) = c then 
    set global uppercase to global uppercase + 1
  else if lower(c) = c then
    set global lowercase to global lowercase + 1
end for each

(I forget the names of the text blocks to upper and lower case )

[Kevinkun]

[Chizzu]

Thank you guys! @ABG @Kevinkun

[TIMAI2]

Handles numbers and non alpha-numeric characters:

[Chizzu]

Anyway, I use this one.

[Juan_Antonio]