DIM text as string [7]
Sub Procedure aa (DIM ByRef wert as string [7])
...
...
end sub

text = "hello"
aa (text)

That´s all.
You find the text hello in the string wert.