Выполнить вычисления по формулам:
T=(1-x)/(3*x-2*y)
P=x*(X-y/(1+x))/2
Z=T-P
Sub primLin()
Dim X, Y, T, P, Z As Single
X = InputBox("Окно ввода", "Ввести значение Х")
Y = InputBox("Окно ввода", "Ввести значение Х")
T = (1 + X) / (3 * X - 2 * Y)
T = Format(T, "###0.0")
P = X * ((X - Y) / (1 + X)) / 2
P = Format(P, "###0.0")
Z = T - P
Z = Format(Z, "###0.0")
MsgBox " x= " & X & " y= " & Y & (Chr(10) & Chr(13)) & _
" T= " & T & " P= " & P & " Z= " & Z, _
vbInformation, "Расчет по формулам: " & Date
End Sub