How to pass a Textbox value of any word/sentence (e.g. "Apple" or "Apple is a fruit.") and split it into different cells in a row?

[sunilhaokha]

Hi everyone, I have been trying to solve this Excel VBA code. Please help me!

Question: How to pass a Textbox value of any word/sentence (e.g. "Apple" or "Apple is a fruit.") and split it into different cells in a row with single letter each in the cell from the value including the spaces or period (say result for the word "Apple" should be - A1 ="A", A2 ="p", A3="p", A4="l" A5="e" or for the sentence "Apple is a fruit." should be - A1 ="A", A2 ="p", A3="p", A4="l" A5="e", A6=" ", A7="i", A8="s", A9=" ", A10="a", A11=" ", A12="f", A13="r", A14="u", A15="i", A16="t", A17=".")? Here I am taking just the examples. The TextBox Value can be anything and cell in a sheet can be in any row.

 

[Rick Rothstein]

Give this code a try in whatever procedure you are using (change the YourTextBoxName stand-in text below to the actual name of your TextBox)...

  Dim Arr As Variant
  Arr = Split(StrConv(YourTextBoxName.Text, vbUnicode), Chr(0))
  Range("B1").Resize(, UBound(Arr) + 1) = Arr

 

[sunilhaokha]

Give this code a try in whatever procedure you are using (change the YourTextBoxName stand-in text below to the actual name of your TextBox)...

  Dim Arr As Variant
  Arr = Split(StrConv(YourTextBoxName.Text, vbUnicode), Chr(0))
  Range("B1").Resize(, UBound(Arr) + 1) = Arr

Thank you Rick Rothstein. These lines works well.