[Iska]

Код:

Dim arrValues

arrValues = Split("login@site.ru", "@")

WScript.Echo arrValues(1)

Возможно и просто:

Код:

WScript.Echo Split("login@site.ru", "@")(1)

[Ragnazar]

Что не так?

Код:

Dim Server
Dim From

From = InputBox("Ваша почта:", "SaVlad @-mail v2", "User@site.ru")
Server = Split("" & From, "@")
WScript.echo("" & Server)

Ошибка
Строка 6 Символ 1
Несоответствие типа

Так-же и с MsgBox

[Iska]

1. «"" & …» — лишнее.
2. При «WScript.Echo» скобки не нужны.
3.

Ошибка Строка 6 Символ 1 Несоответствие типа »

Метод «.Echo» не может осуществлять вывод данных агрегатного типа, …

читать дальше »

которым у Вас является «Server»:

Код:

From = InputBox("Ваша почта:", "SaVlad @-mail v2", "User@site.ru")
Server = Split(From, "@")
WScript.Echo TypeName(Server)

в данном случае — массив:

Код: Variant()

. Но можно вывести отдельно взятый элемент массива.

Посему правильным написанием будет являться:

Код:

Dim Server
Dim From

From = InputBox("Ваша почта:", "SaVlad @-mail v2", "User@site.ru")
Server = Split(From, "@")
WScript.Echo Server(1)