Как защитить свой проект на VBA под Excel?

Option Explicit
 
Public Sub Main()
    MsgBox ColorRGB2HSV(1, 2, 3, 4, 5, 6)
End Sub
 
Public Function ColorRGB2HSV(R As Single, G As Single, B As Single, _
                             H As Single, S As Single, V As Single) As Boolean
    Dim Min As Single, Max As Single
    Min = IIf(R < G, IIf(R < B, R, B), IIf(G < B, G, B))
    Max = IIf(R > G, IIf(R > B, R, B), IIf(G > B, G, B))
    If Max = Min Then
        H = 0
    ElseIf Max = R Then
        If G >= B Then H = 0.16666666666666 * (G - B) / (Max - Min) Else H = 0.16666666666666 * (G - B) / (Max - Min) + 1!
    ElseIf Max = G Then
        H = 0.16666666666666 * (B - R) / (Max - Min) + 0.3333333333333
    Else
        H = 0.16666666666666 * (R - G) / (Max - Min) + 0.6666666666666
    End If
    If Max = 0 Then S = 0 Else S = 1 - (Min / Max)
    V = Max
    ColorRGB2HSV = True
End Function

Public Sub Proc_0_0_4015F0
  loc_00401615: var_4 = &H401078
  loc_00401654: var_9C = 40C00000h
  loc_0040165E: var_98 = 40A00000h
  loc_00401668: var_94 = 40800000h
  loc_00401672: var_90 = 40400000h
  loc_0040167C: var_8C = 40000000h
  loc_00401686: var_88 = 3F800000h
  loc_00401690: Proc_00401720(var_90, var_88, var_8C)
  loc_0040169A: var_48 = Proc_00401720(var_90, var_88, var_8C)
  loc_004016A7: var_40 = 10
  loc_004016AA: var_30 = 10
  loc_004016AD: var_20 = 10
  loc_004016B4: var_38 = 80020004h
  loc_004016B7: var_28 = 80020004h
  loc_004016BA: var_18 = 80020004h
  loc_004016C6: var_50 = 11
  loc_004016CD: MsgBox Proc_00401720(var_90, var_88, var_8C), 0
  loc_004016F4: GoTo loc_0040170E
  loc_0040170D: Exit Sub
  loc_0040170E: 
End Sub
 
Public Sub Proc_0_1_401720
  loc_00401745: var_4 = &H4010B0
  loc_00401754: fcomp real4 ptr [esi]
  loc_00401786: var_74 = arg_10
  loc_00401789: var_7C = &H4004
  loc_0040178C: var_6C = &H4004
  loc_0040178F: If Err.Number = 0 Then GoTo loc_00401798
  loc_004017B6: var_5C = 11
  loc_004017BF: var_AC = &H4004
  loc_004017CA: var_A4 = arg_10
  loc_004017D0: fcomp real4 ptr [esi]
  loc_004017D2: var_94 = arg_C
  loc_004017D8: var_9C = &H4004
  loc_004017E7: If Err.Number = 0 Then GoTo loc_004017F0
  loc_00401814: var_8C = 11
  loc_00401825: fcomp real4 ptr [edi]
  loc_0040182C: If Err.Number = 0 Then GoTo loc_00401835
  loc_00401853: var_BC = 11
  loc_0040185D: var_4C = IIf(False, IIf(False, &H4004, &H4004), IIf(False, arg_C, arg_10))
  loc_00401863: var_4C = CSng(arg_C)
  loc_0040189A: fcomp real4 ptr [esi]
  loc_004018A4: var_74 = arg_10
  loc_004018A7: var_7C = &H4004
  loc_004018AC: var_6C = &H4004
  loc_004018D3: var_5C = 11
  loc_004018DE: fcomp real4 ptr [esi]
  loc_004018E5: var_AC = &H4004
  loc_004018EB: var_9C = &H4004
  loc_004018F1: var_A4 = arg_10
  loc_004018F9: var_94 = arg_C
  loc_0040192F: var_8C = 11
  loc_00401940: fcomp real4 ptr [edi]
  loc_0040196E: var_BC = 11
  loc_00401978: var_4C = IIf(False, IIf(11, &H4004, &H4004), IIf(False, arg_C, arg_10))
  loc_0040197E: var_4C = CSng(var_4C)
  loc_00401984: var_1C = &H0000000300905A4D&H
  loc_004019B0: fcomp real4 ptr &H0000000300905A4D&H
  loc_004019BB: If Err.Number = 0 Then GoTo loc_004019CB
  loc_004019C6: GoTo loc_00401A4C
  loc_004019CB: 
  loc_004019D1: fcomp real4 ptr [ecx]
  loc_004019D8: If Err.Number = 0 Then GoTo loc_00401A04
  loc_004019DC: fcomp real4 ptr [esi]
  loc_004019F5: If Err.Number = 0 Then GoTo loc_00401A47
  loc_00401A02: GoTo loc_00401A4C
  loc_00401A04: 
  loc_00401A07: fcomp real4 ptr [edi]
  loc_00401A0E: If Err.Number = 0 Then GoTo loc_00401A2F
  loc_00401A5A: If Err.Number = 0 Then GoTo loc_00401A67
  loc_00401A80: var_18 = FFFFFFFFh
  loc_00401A8D: GoTo loc_00401AA7
  loc_00401AA6: Exit Sub
  loc_00401AA7: 
End Sub