I have an array of strings (sIssue) made up of different strings concatanated
together. The way sIssue will be constructed will be used repeatedly in my
program so what I would like to do is write a subroutine to construct this
array for the main program. I'm just not sure how to do this. I would like
for the code to work something like below

Sub Main()

' Do stuff
dim sIssue (1 to 8) as string

GetString(sIssue())

Range("B1").Select
for i = 1 to 8
ActiveCell.Offset(i,0).Value = sIssue(i)
next

End
-----------------
sub GetString(Byval sIssue as string)

' do stuff
for i = 1 to 8
sIssue(i) = ActiveCell.Offset(i,0) & ActiveCell.Offset(i,2)
next
End

Thanks in advance

end sub