Dim x As Single, y As Single, z As Single, Max As Single

x = Val(TxtX.Text)

y = Val(TxtY.Text)

z = Val(TxtZ.Text)

Max = max2(x, y) 'Переменной mах присваиваеmся значение функции mах2,

‘вычисленное при аргументах х и у

Max = max2(Max, z) 'Переменной mах присваиваеmся значение функции mах2,

‘вычисленное при аргументах mах и z

txtMAX.Text = Str(Max)