Sub 偶数か奇数か判定する()

    判定したい数字 = 11

    If 判定したい数字 Mod 2 = 0 Then 'Mod は割り切れない数字を算出 0=偶数 1=奇数
        
        MsgBox "偶数です"
        
    ElseIf 判定したい数字 Mod 2 = 1 Then
        
        MsgBox "奇数です"
        
    End If

End Sub