cortar cadena por dos laterales

[engonga]

hola tengo este codigo que me funciona a medias

Código PHP:

  txt = mail
' el txt tiene esta cadena:
' destino: [e-mail]; nombre: Veronica mundonez sanchex; email: [e-mail]; mensaje: ; IP: 212.77.232.57; Servicio Gratuito Proporcionado por www.chechesa.net 
txt2=replace(txt, chr(34) , chr(96) )
pos=InStr(txt2,"email:") 
pos_2 =left(txt2, (pos+6))
txt_2=replace(txt2, pos_2, "")
'aqui ya tengo el principio del mail:
'[e-mail]; mensaje: ; IP: 212.77.232.57; Servicio Gratuito Proporcionado por www.chechesa.net 
'ahora toca sacar lo de:
'; mensaje: ; IP: 212.77.232.57; Servicio Gratuito Proporcionado por www.chechesa.net 
' aqui ja tenim el text a la dreta ara anem a treure des de '> cap a la dreta
mail_mes =InStr(txt_2,";")
'mail_mes1 =InStr(txt_2,chr(38))

mail_mes1=left(txt_2, mail_mes)
'aqui ya tengo el correu:
[e-mail];
mail_cont = mail_mes1 
   

lo que no puedo hacer es que me recorte el ; de la variable mail_mes1 por que si pongo

mail_mes1 = left(txt_2, (mail_mes-1))

me da un error
Error de Microsoft VBScript en tiempo de ejecución (0x800A0005)
Argumento o llamada a procedimiento no válidos: 'left'


alguien me puede echar un cable?

gracias de antemano

[Adler]

Hola

Apenas sin leer, quizás has de usar la función CInt

mail_mes1 = Left(txt_2, CInt(mail_mes-1))

Suerte