showoff! ;\)

 Code:
$string="fooBAR"

? GetCaps($string)
? $string

Function GetCaps($string)
  $temp1 = $string
  For $Index = 1 to ($string^)
    $temp2 = Left($temp1,1)
    If Asc($temp2) > 64 And Asc($temp2) < 91
      $GetCaps = $GetCaps + $temp2
    EndIf
    $temp1 = Right($temp1,~)
  Next
EndFunction
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)