[KnRSU]

в чем собственно проблема
добавьте в конце этого

A(1) = -36 A(2) = 7 A(3) = 5 A(4) = 4 For i = 1 To 4 If i = 1 Then If A(i) > 0 Then y = Sqr(A(i)) Else y = 0 End If End If Next i »

вот это (последней строкой)

Код:

MsgBox "Значение Y = " & y

и будет то что Вам уже не раз указывали

MsgBox y, vbOKOnly, "Результат вычисления значения Y" »

MsgBox("Hello, World!") ' Display message on computer screen. »