>>42
A=Mid(Module1.C_Date, 5, 2)
B = CInt(A)
どこでエラーになるか考えよう。