Using Split Function in VBScript

Using Split Function in VBScript to get needed value

'Using Split Function with delimited with ://

Dim strOutPut ,i, strMngrDn
Dim strValue

strOutPut = "LDAP://cn=Sandeep Kapadane,OU=Pune,DC=Domainname,DC=com"
strValue = Split(strOutPut,"://")

For i = 0 to Ubound(strValue)
    strmngrDn=strValue(1)
Next

Msgbox strMngrDN

OUT PUT OF strMngrDN will be:-
cn=Sandeep Kapadane,OU=Pune,DC=Domainname,DC=com