강의 하신 자료와 똑같이 입력했는데

오류 :이름이 분명하지 않습니다 (main)

메시지 박스가 자꾸 뜨네요

어디에 문제가 있는지 궁금 합니다.

Sub main()

    ''변수 선언
    Dim 분류코드 As String
    Dim 추가포인트 As Long
   
    ''변수 저장
    분류 = "A"
   
    Select Case 분류코드
        Case "A"
        추가포인트 = 5
        Case "B"
        추가포인트 = 10
        Case "C"
        추가포인트 = 20
       
    End Select
    ''변수 저장
    MsgBox 추가포인트
   
   
   
   
End Sub