How to filter specific values entered by user in array

I have a table with diferent values. The user has to enter in an inputbox what values must be filtered (several values).

This is the macro:

Sub selectaccounts ()
Dim accounts as string
accounts = InputBox("Please enter desired accounts separated by comas")
ActiveSheet.Range("A1:P100").AutoFilter Field:=12, Criteria1:=Array(accounts), Operator:=xlFilterValues
End sub

This macro does not work, as the output is empty. I have tried several imputs such as "430, 431, 432" or "430", "431", "432". I have also changed "" by ', but no result either.

Does anybody know what the format is or how can I solve the problem?