Excel Vba Script to Get Values from a Range for Comma Seperated Values

listValues.bas

Public Function ListValues(CSVList As String, rg As Range, NumberColumn As Long)
    Dim findlist() As String
    Dim listData As Variant
    'Dim rg As Range
    Dim colVal As Integer
    
    'Set rg = Sheet2.Range("A2:B243")
    Dim NumEntries As Long
    Dim i As Long
    findlist = Split(CSVList, ",")
    NumEntries = UBound(findlist) - LBound(findlist) + 1
    
    listData = ""
    
    On Error Resume Next
    For i = LBound(findlist) To UBound(findlist)
        colVal = findlist(i)
        If listData <> "" Then
         listData = listData & ", "
        End If
        listData = listData & Application.WorksheetFunction.VLookup(colVal, rg, NumberColumn, False)
    
        If Err.Number <> 0 Then
            ListValues = Err.Number
        Exit Function
    End If
    Next i
    ListValues = listData
End Function