Midの第一引数は文字列型だが、考えられるのは
Module1.C_Dateが数値型だからとか値が入ってないとか
そういうことだと思う。

原因はおそらくこの2行。
da = Split(Date, "/")
L_DATE = da(0) & da(1) & da(2)

システム日付を文字列に変換するなら、
Format(Date,"yyyymmdd")とか使ったほうが確実だよ。

あと「らしい」と書いてるってことは別の人に聞かれてるのかね？
本人に自分で聞くように言ってやんなさい。