Error with Split Function

[ninster]

Hi Guys,

I am trying to split a string of integers but I keep getting this error:
Index was outside the bounds of the array.

Here is my code:

Public Shared Function picastopoints(ByVal sTemp)
        'For example sTemp could equal 6p10
 
        Dim whole, remainder, convert, strInt
        whole = Split(sTemp, "p", -1, 0)
        strInt = whole(0)
        remainder =whole(1)
        convert = strInt * 12000 + remainder * 1000
        Return convert
    End Function

Please Please Help..I dont know what I am doing wrong..

Thanks!