Custom Search

Monday, May 28, 2012

How to change characters horizontal to vertical in one string using vb script


str=inputbox("Enter String","")
dim strArray()
For i = 1 to len(str)
   ReDim preserve strArray(i)
   strArray(i)=mid(str,i,1)
Next
For i = 1 to len(str)
   strmsg=strmsg& strArray(i) & vbNewLine
                     OR
   'strmsg=strmsg& strArray(i) & vbcrlf
Next
msgbox strmsg
Posted by at

No comments:

Post a Comment

Note: Only a member of this blog may post a comment.

Subscribe to: Post Comments (Atom)