hi Carnifex930

You may have already solved this, but just in case you haven't...
To use the function that Leith posted you can call it from another macro to define a string variable by putting it on the right of the equals sign in your code, for example:
Sub MainMacro()
dim String_Variable as string
dim rng1 as range
dim rng2 as range
'other dims...
'other code...

'define the ranges
set rng1 = activecell
set rng2 = rng1.offset(1,0)

'apply looping...
'define the string (including the string variable on the right of the _
equals sign means that it will add the new value to the existing _
value when you add your looping code). 
String_Variable = String_Variable & ParseText(9,rng1, rng2)

'other code...
end sub

Function ParseText(ByVal Spaces_To_Add As Integer, Cell1, Cell2)
  ParseText = Cell1 & Space(Spaces_To_Add) & Cell2
 End Function
hth
Rob