You can use the Sender object and the Spinners Tag property.
Two suggestions:
1. Using something similar to your question.
You must set the Tag property of the Spinners from 1 to x
Sub spnL1A1_ItemClick(Position As Int, Value As Object)
Private spn = Sender As Spinner
Select spn.Tag
Case "1"
variable1 = Value
Case "2"
variable2 = Value
End Select
End Sub
2. Using an array for the values.
You must set the Tag property of the Spinners from 0 to x - 1
Sub spnL1A1_ItemClick(Position As Int, Value As Object)
Private spn = Sender As Spinner
Private Index = spn.Tag As Int
variable(Index) = Value
End Sub