View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
vincentj vincentj is offline
external usenet poster
 
Posts: 1
Default For Next statement

why is it when i use this:
Function cvText(cllText As String)
For i = 1 To Len(cllText)
cvText = Mid(cllText, i, 1)
Next
End Function
....
and test it..
Print cvText("hello")
o
I get "o"
but if I use
Function cvText(cllText As String)
For i = 1 To Len(cllText)
cvText = Right(clltext,i)
Next
End Function
i get:
Print cvText("hello")
hello
i get "hello"

i want to be able to loop through each character
using mid(clltext,i,1) to test if there is a blank.

the goal is to create a function that ucase's the
beginning of each letter of a word
thanks.