mira aqui esta este ejemplo mas sencillo y si funciona
dim imprimir as string
dim variable as string= "
[email protected]"
dim asplit as string= variable
Dim add() As String = asplit.Split("@")
imprimir = add.GetValue(1)
response.write(imprimir)
****************
resultado: mail.com
son muchos pasos y se pueden simplificar, ha y recuerda que para accesar a los valos de un split se ocupa el get.value()
ejemplo variable.get.value(0)
variable.get.value(1)
variable.get.value(2)
etc, etc
bye