do it in a for next loop using MID <br>
Replace "YourString" with the String you want to parse<br>
<br>
Dim Character As String<br>
For a = 1 To Len(YourString)<br>
Character = Mid(YourString, a, 1)<br>
Debug.Print Character<br>
Next<br>
<br>
<br>
<p> DougP<br><a href=mailto: dposton@universal1.com> dposton@universal1.com</a><br><a href= > </a><br>