Public Function someTest(firstVal As String, ParamArray otherVal() As Variant) As String

    Dim someVal As Variant
    Dim delim As String:    delim = "|"
    Dim splitVal As String: splitVal = "-"

    For Each someVal In otherVal
        someTest = someTest & Split(firstVal, splitVal)(0) & delim & someVal
    Next someVal

End Function