내장함수 실습을 하는데요.

선생님께서 하신데로 똑같이 코딩한다고 했는데 오류가 떠서요.

"컴파일오류입니다

sub 또는 function이 정의되지 않았습니다."

라는 메세지가 뜨네요.

어떻게 해결하나요?

--------------------------------------------------------

Sub main()

    ''변수선언
    Dim a As Double
    Dim b As Long
    Dim c As Long
    Dim d As Long
   
    ''변수저장
    a = -3.41
    b = Int(a)
    c = Fix(a)
    d = Round(a)
   
   
    ''변수출력
    MsgBox a
    MsgBox b
    magbox c
    magbox d

End Sub