근데, 강의랑 똑같이 작성하구, 잘못한 거 같지도 않은데, 계속 오류가 떠서요.

뭐가 잘못되었는지~ 좀 봐주세영^^;;

<오류: 이름이 분명하지않습니다:main> 

Option Explicit

Sub main()

    ''''변수선언
    Dim 정수 As String
    Dim 값 As Long
   
    ''''변수저장
    값 = 10
   
    If 값 > 0 Then
        정수 = "양수"
    ElseIf 값 < 0 Then
        정수 = "음수"
    Else
        정수 = "0"
    End If
   
    ''''변수출력
        MsgBox 정수

End Sub

Option Explicit

Sub main()

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