VBE 사용자 정의 함수 연습

Public Function 성별(num As Range)
     Dim a As String
     Dim sex As String
    a = Mid(num, 8, 1)
        If a = "1" Then
            sex = "남"
        ElseIf a = "2" Then
            sex = "여"
        Else
            sex = "불확실"
        End If
        성별 = sex
   End Function