How to count Uppercase Letter from a String

[sandeep.kharat]

Hi all,

How to count Uppercase Letter from a String.

Please help

Regards,
Sandeep

[campkev]

Function NumUpperCase(x)
  a = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  count = 0

  for c = 1 to Len(x) 
   if InStr(a,Mid (x,c,1)) > 0 then count = count+1
  next

  NumUpperCase = count
End Function