Editing Multiple Cells Using A Loop

I am attempting to print each letter of a string in a specified cell individually in different cells. For example, if I input the word "Hello" in cell B1, it would automatically print "H" in A1, "e" in A2, "l" in A3, etc.

I currently have this;

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Count As Integer
Dim Explosion As Integer
Dim Kaboom
Dim EndCounter As Integer
Dim StrTarg
Dim PLV

[Code]...

However, it does not seem to loop. It simply prints the first letter of the string inputed (In cell K3 in my case), into cell A1, and then stops. Surely it should continue to loop around untill Count is equal to the length of the string in K2.