주신 소스는 한 문제가 아니라...두 문제입니다.. 소스를 나누어서 하나씩 실행하셔야 합니다. 아래 구분선을 기준으로 따로 실행해 보세요.^^

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