How to print characters in Vertically order
sName="venkat Kandula"
sName=Split(sName," ")
sFirstName=sName(0)
sSecondName=sName(1)
sFirstNameLenght=len(sFirstName)
sLastNameLenght=len(sSecondName)
If sFirstNameLenght>sLastNameLenght Then
nTotalCount=sFirstNameLenght
Else
nTotalCount=sLastNameLenght
End If
For i=1 to nTotalCount
If i>sFirstNameLenght Then
sFstNameCha=" "
Else
sFstNameCha=Mid(sFirstName,i,1)
End If
If i>sLastNameLenght Then
sLstNameCha=" "
Else
sLstNameCha=Mid(sSecondName,i,1)
End If
sFNChar=sFstNameCha& sLstNameCha & vbnewline
print sFNChar
Next
OR
str="java"
L=len(str)
For i=1 to L
x=mid(str,i,1)
y=x&Vbnewline&temp
print y
next
