Hỏi về code tính toán (1 người xem)

[kawaicandy]

Mình tạo 1 user form và 1 vài đoạn code để điều khiển userform đấy nhưng không hiểu sao có cái chạy, có cái không chạy được. Mong đựơc các cao thủ chỉ giúp

Mình thay đổi số liệu kiểu j thì cái ô kết quả "Kiểm tra về độ võng" vẫn không thay đổi j cả.

Private Sub CmdBtn_Click()
Dim a, b, fi, xichma, xichmacp, f, fcp As Long
        'KiÓm tra ®iÒu kiÖn vÒ ®é m¶nh
        a = Val(Dim4) * Val(Dim5) / Val(TextBox5)
        b = 120
        Result1 = IIf(a <= b, "Thoa dieu kien ve do manh", "Chon lai tiet dien")
        'KiÓm tra ®iÒu kiÖn bÒn
        fi = MangB(a, Sheets("DATA").Range("D30:Z30"), Sheets("DATA").Range("D31:Z31"))
        xichma = Val(Dim1) / (Val(TextBox1) * fi) + Val(Dim2) / Val(TextBox3) + Val(Dim3) / Val(TextBox4)
        xichmacp = 2100
        Result2 = IIf(xichma <= xichmacp, "Thoa dieu kien ben", "Chon lai tiet dien")
        'KiÓm tra ®iÒu kiÖn vÒ ®é vâng
        f = 5 * Val(Dim1) * Val(Dim5) ^ 3 / (384 * Val(TextBox2) * 2.1 * 10 ^ 6)
        fcp = Val(Dim5) / 250
        Result3 = IIf(f <= fcp, "Thoa dieu kien do vong", "Chon lai tiet dien")
End Sub

Cảm ơn.

 

[kawaicandy]

Loay hoay mãi vẫn chưa tìm ra nguyên nhân. Có cao thủ nào chỉ giáo giúp mình phát.
Cảm ơn