Sub MyFunc()
Dim y(11) As Long
Dim x As Integer
Dim i As Integer
Dim z As Long
    
    'заполняем массив Y(i)
    For i = 1 To 11
        y(i) = CLng(InputBox("Введите значение Y" + CStr(i)))
    Next
    'открываем файл для печати
    Open "c:\result.txt" For Output As #1
        'создаем цикл для перебора массива Y(i)
        For i = 1 To 11
            'цикл для изменения Х
            For x = 50 To 100
                'вычисление Z при заданных значениях X и Y(i)
                z = (x - 50) - y(i)
                'печать в файл результата вычислений
                Print #1, "Значение Z для Y(" + CStr(i) + ") при x=" + CStr(x) + " равно " + CStr(z)
                'вывод на экран результата
                MsgBox "Значение Z для Y(" + CStr(i) + ") при x=" + CStr(x) + " равно " + CStr(z)
            Next
        Next
        'закроем файл по окончанию вывода в файл
    Close #1
End Sub

Sub main()
'объявляем массивы X, Y, Z
        Dim X(11) As Integer
        Dim Y(11) As Integer
        Dim Z(11) As Integer
'объявляем текстовую запись массива Z и задаем ей пустое значение
        Dim massZ As String
        massZ = ""

' объявляем параметры InputBox и задаем им значения
        Dim message, title, defaultValue As String
        Dim myValue As Object
        ' строка сообщения
        message = "Введите значение для Y" & i
        ' заголовок
        title = "Ввод массива Y"
        defaultValue = "0"   ' значение по-умолчанию - "0"

'создаем цикл для вычисления всех элементов массива
        For i = 1 To 11
            Randomize() 'функция для использования системного таймера при генерации Xi
            X(i) = CInt(Math.Floor((100 - 50 + 1) * Rnd())) + 50 'генерируем случайное значение Xi от 50 до 100

            
            ' отображаем InputBox
            myValue = InputBox(message, title, defaultValue)
            ' если нажата кнопка "Отмена", то ставим значение по-умолчанию
            If myValue Is "" Then myValue = defaultValue
            Y(i) = myValue
            Z(i) = X(i) - 50 - Y(i) 'вычисляем Z
            massZ = massZ & " " & Z(i) 'записываем полученное Zi в текстовую запись массива Z. в качестве разделителя использован пробел
        Next
        My.Computer.FileSystem.WriteAllText("C:\massivZ.txt", massZ & vbCrLf, True) 'выводим текстовую запись массива Z в файл, при последующем запуске программы массивы будут дописываться построчно
        MsgBox("Массив Z: (" & massZ & ")", MsgBoxStyle.Information, "Массив Z") 'выводим сообщение с содержимым массива Z
    End Sub

Sub main()
'объявляем массивы X, Y, Z
        Dim X(11) As Integer
        Dim Y(11) As Integer
        Dim Z(11) As Integer
'объявляем текстовую запись массива Z и задаем ей пустое значение
        Dim massZ As String
        massZ = ""
'объявляем переменную для номера файла вывода и задаем ей имеющееся в системе свободное значение
        Dim FileNum As Integer
        FileNum = FreeFile()

' объявляем параметры InputBox и задаем им значения
        Dim message, title, defaultValue As String
        Dim myValue As String
        'строка сообщения
        message = "Введите значение для Y" & i
        'заголовок
        title = "Ввод массива Y"
        defaultValue = "0"   ' значение по-умолчанию - "0"
        
'создаем цикл для вычисления всех элементов массива
        For i = 1 To 11
            Randomize
            X(i) = CInt(Round((100 - 50 + 1) * Rnd())) + 50
            myValue = InputBox(message, title, defaultValue)
            If myValue = "" Then myValue = defaultValue
            Y(i) = myValue
            Z(i) = X(i) - 50 - Y(i)
            massZ = massZ & " " & Z(i)
        Next
        Open "c:\massivZ.txt" For Output As #FileNum
        Write #FileNum, massZ
        Close #FileNum
        MsgBox "Массив Z: (" & massZ & ")", vbInformation, "Массив Z"
    End Sub