vba pc시리얼번호확인

Sub 시리얼번호()
    Dim fso As Object
    Dim 시리얼번호 As Long
    Dim i As Integer
    
    
    시리얼번호 = 0000000000
    Set fso = CreateObject("Scripting.FileSystemObject").GetDrive("C:")
    'Debug.Print Abs(fso.serialnumber)
    If Abs(fso.serialnumber) = 시리얼번호 Then
        MsgBox "나의 PC 입니다."
    Else
'        MsgBox ("프로그램이 종료됩니다")
'        Application.DisplayAlerts = False   ' 저장할까요? 경고창 없애기
'        Application.Quit                    ' 엑셀을 종료하기
        i = MsgBox("프로그램을 종료할까요?", vbYesNo)
        If i = 6 Then
            'ActiveWorkbook.Close
            Application.DisplayAlerts = False   ' 저장할까요? 경고창 없애기
            Application.Quit                    ' 엑셀을 종료하기
        End If
    End If
End Sub