Произвести расчет по формуле

Option Explicit
Dim d As Integer, r As Integer, t As Integer, lr As Integer
Private Sub Command1_Click()
d = InputBox("Vvedite d")
r = InputBox("Vvedite r")
t = InputBox("Vvedite t")
lr = (d + r) / t
MsgBox ("lr=" & lr)
End Sub

Dim Ex As New Excel.Application
Ex.Workbooks.Open "C:\x.xls"
Ex.Visible = True

M =  OL.object.Sheets(1).Cells(R, C)

Private Sub Комманда1_Click()
Dim B As Double, P As Double, U As Double
Dim Ex As Object
Set Ex = CreateObject("Excel.Application")
Ex.Workbooks.Open App.Path & "\x.xls"
Ex.Visible = False
B = Ex.cells(3, 2).Value
P = Ex.cells(4, 2).Value
U = Ex.cells(5, 2).Value
Ex.quit
MsgBox "Прибыль = " & B
End Sub

Private Sub Комманда1_Click()
Dim B As Double, P As Double, U As Double
B = CDbl(Текст1.Text)
P = CDbl(Текст2.Text)
U = CDbl(Текст3.Text)
 
MsgBox "Баланс предприятия = " & B & vbCrLf _
& "Прибыль = " & P & vbCrLf _
& "Убыток = " & U & vbCrLf _
& "Что-то ещё = " & VBA.Round((P - U) / U * 100, 2) & "%"
Метка1.Caption = Round((P - U) / U * 100, 2) & "%"
End Sub

Dim Ir As Double, d As Double, r As Double
Dim Cr As Double, t As Double, t1 As Double, t2 As Double
 
t = CDbl(Текст1.Text)
d = CDbl(Текст2.Text)
r = CDbl(Текст3.Text)
t1 = CDbl(Текст4.Text)
t2 = CDbl(Текст5.Text)
 
Метка1.Caption = Round((d+r)/t, 2) 
Cr=Round( t1/t2, 2) ' вычисляем и округляем до двух знаков после запятой
Метка2.Caption = Cr