Objekt + tal?

Hejsa eksperter!
Jeg er ved at lave et mindre projekt, dog skal jeg bruge en masse winsocks og derfor har jeg lavet denne enkle funktion

Private Function wsck(nummer As String)
winsock(nummer).Senddata "Data"
End Function

Jeg er udemærket klar over, at det overstående script ikke virker. Hvordan kan jeg få dette til at virke? Har forsøgt med Winsock+nummer men intet har set ud til at virke.