Error with Split Function

[plenderj]

Here try this

Public Shared Function picastopoints(ByVal strTemp As String) As Integer
        Dim strWhole() As String, intNum1 As Integer, intRemainder As Integer, intConvert As Integer
        strWhole = Split(strTemp, "p")
        intNum1 = CInt(strWhole(0))
        intRemainder = CInt(strWhole(1))
        intConvert = intNum1 * 12000 + intRemainder * 1000
        Return intConvert
    End Function