Attribute VB_Name = "mymath"

Public Sub add_nums()
Dim a(MaxLength) As Long
Dim b(MaxLength) As Long
Dim c(MaxLength) As Long
Dim LengthA As Long
Dim LengthB As Long
Dim LengthC As Long

Call TextToBigNumber(numtoadd1, a, LengthA)
Call TextToBigNumber(numtoadd2, b, LengthB)
Call AddBSigned(a, LengthA, b, LengthB, c, LengthC)
addedanswer = BigNumberToText(c, LengthC)
End Sub

Public Sub divide_nums()
Dim a(MaxLength) As Long
Dim b(MaxLength) As Long
Dim c(MaxLength) As Long
Dim d(MaxLength) As Long
Dim LengthA As Long
Dim LengthB As Long
Dim LengthC As Long
Dim LengthD As Long
Dim dumbnum As String
Call TextToBigNumber(teststring1, a, LengthA)
Call TextToBigNumber(numtotest, b, LengthB)
Call DivBSigned(a, LengthA, b, LengthB, c, LengthC, d, LengthD)
dumbnum = BigNumberToText(c, LengthC)
remainder = BigNumberToText(d, LengthD)

End Sub