here is the code.. VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "Maths" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = True Public Function addNumbers(lNum1 As Long, lNum2 As Long) As Long addNumbers = lNum1 + lNum2 End Function Public Function multiplyNumbers(lNum1 As Long, lNum2 As Long) As Long multiplyNumbers = lNum1 * lNum2 End Function Public Function subtractNumbers(lNum1 As Long, lNum2 As Long) As Long subtractNumbers = lNum1 - lNum2 End Function Public Function divideNumbers(lNum1 As Long, lNum2 As Long) As Long divideNumbers = lNum1 / lNum2 End Function