title: Function to split a string into multiple characters
body: <p>I want to create a custom function that takes the selected parameter and splits its content on different cells.</p>
  
  <p>example : </p>
  
  <p><code>A1=ABCDE</code>  </p>
  
  <p>becomes  </p>
  
  <p><code>B1=A, C1=B, D1=C, E1=D, F1=E</code>  </p>
  
  <p>so this is what I tried :  </p>
  
  <pre><code>Function SplitWord(Word)
  NbCar = Len(Word) // get the number of cardinals of the text
  SplitWord = Left(Word, 1) // put the first letter in the cell that called the function
  t = NbCar - 1
  For i = 1 To t
  ActiveCell.Offset(0, i) = Right(Left(Word, i), 1)
  Next
  End Function
  </code></pre>