Replace space to comma

Hello guys! I attached a sample workbook where my question is located. pls help, its all about looping through strings.. TIA

In B2:
=SUBSTITUTE(A2," ",",")

In B3:
=MID($A$2,COLUMN()-1,1)

Make B3 an array formula by Selecting B3 and more columns than needed and press Ctrl+Shift+Enter.

thanks sir Kenneth