If Module1.Form5_CSV_Load = 0 Then
da = Split(Date, "/")
L_DATE = da(0) & da(1) & da(2)
Module1.Shain_Clear
Label15.Caption = Module1.Shain_Code
Text1.Enabled = False
Module1.C_Date = L_DATE
Module1.Ki = da(0) - 2001 + 30
Ye = da(0)

ってなるそうです。
要するに、Mo = CInt(Mid(Module1.C_Date, 5, 2))の
Module1.C_Date　に入る値はシステムデータの事らしいです。