lỗi không sử dụng đc hàm

[hoainam2804]

xin chào các bạn, mình có sử dụng 1 hàm lúc addin vào vẫn dùng bt, tuy nhiên lúc mình chuyển vào modul để gửi file đi thì hàm ko sử dụng đc, rất mong các bạn chỉ giúp mình lỗi ở đâu và sửa chữa ntn ? mình xin cảm ơn .
Public Function kt(Expr)
Char = Expr
Sent = Space(0)
ABC = "0123456789+-*/()." & Space(1)
XYZ = "0123456789" & Space(1)
For m = 2 To 3
Met = "m" & m
Temp = InStr(1, Char, Met)
Do While Temp > 0
If Temp > 0 Then
Char = Left(Char, Temp) & Mid(Char, Temp + 2)
End If
Temp = InStr(1, Char, Met)
Loop
Next
For i = 1 To Len(Char)
KyTu = Mid(Char, i, 1)
If InStr(1, ABC, KyTu) > 0 Then
Sent = Sent & KyTu
Else
Select Case KyTu
Case ":"
Left_ = Mid(Char, i - 1, 1)
Right_ = Mid(Char, i + 1, 1)
If InStr(1, XYZ, Right_) > 0 Then
Sent = Sent & "/"
End If
Case ","
Sent = Sent & "."
Case "%"
Sent = Sent & "/100"
Case "x", "X"
Left_ = Mid(Char, i - 1, 1)
Right_ = Mid(Char, i + 1, 1)
If InStr(1, XYZ, Right_) > 0 Then
Sent = Sent & "*"
End If
End Select
End If
Next
kt = Eval(Sent)
End Function

Bài đã được tự động gộp: 28/9/21

mình gửi file chứa modul ở đây

 

[VetMini]

Cắn cục xương lớn quá bị gãy răng hở?

 

[hoainam2804]

Cắn cục xương lớn quá bị gãy răng hở?

mình ko hiểu ý bạn. mong bạn chỉ giáo