Отменить массив ввода

Question

Я пытаюсь заставить функцию отмены работать для моего массива, она работает для простого поля ввода, но Array(InputBox(это не очень нравится).

Рабочий код.

If strVarValue = vbNullString Then
    MsgBox ("User canceled!")
    WScript.Quit
End If

С чем мне нужна помощь

strIPAddress = Array(InputBox("IP address"))
If strIPAddress = vbNullString Then
    MsgBox ("User canceled!")
    WScript.Quit
End If

Не нравится массив, поэтому я получаю несоответствие типов.

Answer 1

Делайте конвертацию только в том случае, если пользователь не нажал "Отмена":

userInput = InputBox("IP address")
If userInput = "" Then
    MsgBox ("User canceled!")
    WScript.Quit
End If

strIPAddress = Array(userInput)

Кроме того, если вы хотите провести различие между "пользователь нажал Отмена" и "пользователь нажал ОК без ввода значения", вам необходимо проверить, является ли переменная Empty:

userInput = InputBox("IP address")
If IsEmpty(userInput) Then
    MsgBox ("User canceled!")
    WScript.Quit
ElseIf userInput = "" Then
    MsgBox ("Missing input!")
    WScript.Quit 1
End If

strIPAddress = Array(userInput)