[問題] 對高手而言應該是個簡單到不型的VB問題

[presider7859 (小雪)]

我是個程設新手~才剛學VB
練習到某個小程式.卻怎麼也跑不動
按了偵錯.他說是在倒數第2行的地方有錯誤
我有嘗試過除錯~試了好久還是不知道怎麼改

還是說程式碼是沒錯誤的~
是還要加減什麼內容或只是還要做啥指定嗎?

懇請高手們幫幫忙!!!
大恩大德~感激不盡


Sub main()
    Dim SubToCall As String
    Select Case Weekday(Now)
        Case 1: SubToCall = "WeekEnd"
        Case 7: SubToCall = "WeekEnd"
        Case Else: SubToCall = "Daily"
    End Select
        Application.Run SubToCall
End Sub

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.128.142.241