You don't need to put a ByRef array in the header. You just need:
Public Function Rating(ByVal iNPS As String) As String()
Dim result As String()
Select Case iNPS
Case "1/2"""
result = New String() {"150#", "300#"}
.
.
.
End Select
Return result
End Function
A guide to posting questions on CodeProject[^]
Dave Kreskowiak Microsoft MVP Visual Developer - Visual Basic
2006, 2007, 2008