VBA - 数式を文字列に変換する変数

Question

VBAコードで変数内に式を作成しようとしています。 メールセクションを作成するコードが来たら、CRASHを取得します。

numerの何が問題になっていますか？

Dim numer As Integer 
Dim day As Integer 

day = WorksheetFunction.TODAY() 
numer = WorksheetFunction.WeekNum(day, 1) 


With OutMail 

    .Subject = "text text" & CStr(numer) & " text text" 

Answer 1

VBAではTODAY（）関数を使用できません。代わりに日付関数を使用してください。また、整数は32,767までの値しか保持できません。代わりにロングを使用してください。

Private Sub this() 
Dim numer As Integer 
Dim day As Long 

day = Date 
numer = WorksheetFunction.WeekNum(day, 1)