VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Calc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Private privateRadius As Double
Private privateMsg As String

Public Function Sphere(Radius As Double) As Double
    Dim pi As Double
    pi = 3.14159265358979
    'Radius = InputBox("Enter the radius of the sphere")
    Sphere = (4 / 3) * pi * (Radius ^ 3)
End Function


Public Property Let Message(Msg)
    privateMsg = Msg
End Property

Public Property Get Message()
    Beep
    'Default Sound (Sounds in Control Panel)
    Message = privateMsg
End Property

Private Sub Class_Initialize()
'MsgBox "Initializing Class"
    privateMsg = "NO MESSAGE STORED"

End Sub

Private Sub Class_Terminate()
'MsgBox "Terminating Class"
    
    If privateMsg <> "NO MESSAGE STORED" Then
        MsgBox ("The message stored in this Class will be lost")
    End If
    
End Sub
