Вывести динамический массив из подпрограммы в основную - VB

Формулировка задачи:

Здравствуйте! Есть задача: написать программу с п\п-процедурой, юзер вводит слово, определить кол-во букв, сформировать динамический массив и поместить каждую букву в ячейку массива. Собственно не знаю как вывести массив из подпрограммы в основную. Вот код в основной проге:

Option Base 1
Private Sub Command1_Click()
Dim Mas$()
W$ = InputBox("Vvedi slovo")
leng = Len(W$)
ReDim Mas$(leng)
For i = 1 To leng
 Mas$(i) = Mid(W$, i, 1)
 Print Mas(i)
Next
End Sub

Решение задачи: «Вывести динамический массив из подпрограммы в основную»

textual
                            Листинг программы 
                        

                            Dim Mas$(), i As Integer
Private Sub Command1_Click()
    W$ = InputBox("Vvedi slovo", , "qwerty")
    Call Splitter(W$)
    For i = 1 To UBound(Mas)
        Print Mas(i) & ", ";
    Next
    Print " Kolichestvo bukv = "; UBound(Mas);
End Sub
Private Sub Splitter(slovo As String)
    Dim leng As Integer
    leng = Len(slovo)
    ReDim Mas$(1 To leng)
    For i = 1 To leng
        Mas$(i) = Mid(slovo, i, 1)
    Next
End Sub
                        