Private Sub Command1_Click()Dim A As Double, B As Double, C As DoubleDim D As Double, E As Double, F As DoubleDim X As DoubleA = Val(Text1.Text)B = Val(Text2.Text)C = Val(Text3.Text)D = Val(Text4.Text)E = Val(Text5.Text)F = Val(Text6.Text)X = (A * B) / (C * (D - E) * F)MsgBox XEnd Sub...