Cacher is the code snippet organizer for pro developers

sub make_arr_single_col(str1,ubound1)
    Dim arr_tmp()
    ReDim arr_tmp(1 To ubound1, 1 To 1)
    For ii = 1 To UBound(arr_tmp)
        arr_tmp(ii, 1) = Str1
    Next
    '---
    make_arr_single_col = arr_tmp
end sub