Array i sub?

users = "135309828,2,""Peeer"";67969298,2,""Mappe"";118946765,2,""Bergman"""

myArray = Split(users,";")
For i = 0 To Ubound(myArray)
[B]call checkICQStatus(myArray(i))[/B] 
Response.write "<br>"
Next 

Sub checkICQStatus(uin,typ,nick) 

Set objHTTP = Server.CreateObject("Microsoft.XMLHTTP") 
objHTTP.Open "GET", "http://wwp.icq.com/scripts/online.dll?icq=" & uin & "&img=1", False 
objHTTP.Send 
Filesize = LenB(objHTTP.ResponseBody) 
Set objHTTP = Nothing 

Select Case Filesize 
Case 446 
status = "Online" 
Case 475 
status = "Offline" 
Case 1278 
status = "Disabled" 
Case Else 
status = "Unknown" 
End Select 

If typ = 1 then 
Response.Write UIN & " <img src=""" & status & ".gif"">" 
else 
Response.Write nick & " är " & status 
End IF 
End Sub

Resultatet ska se ut ungefär så här(om statusen nu stämmer vill säga):

Peeer är online
Mappe är online
bergman är disabled

Hur gör jag?

For i = 0 To Ubound(myArray)
call checkICQStatus(myArray(i)) 
Response.write "<br>"
Next

Borde vara:

For i = 0 To Ubound(myArray)
tmpArray = Split ( myArray( i ), "," )
call checkICQStatus( tmpArray( 0 ), tmpArray( 1 ), tmpArray( 2 ) ) 
Response.write "<br>"
Next

Perfekt! Tackar ödmjukast! :D