Arul,
Use below mentioned code.
Might be we will be having easy code also. But I know this code only.
Use below mentioned code.
Code:
str= "ADlanda"
n=len(str)
msgbox n
i=0
strRes=""
While i<n
a=mid(str,i+1,1)
If ASC(a)>=65 AND ASC(a)<=90 Then
strRes=strRes &a
End If
i=i+1
Wend
msgbox "Your Result is: " &strResMight be we will be having easy code also. But I know this code only.