*****Module1.bas*****
Public Const vbBinary = 2
Public Const vbHex = 16
Public Const vbOctal = 8
Public Const vbDecimal = 10
Public Const vb2Binary = -2
Public Const vbString = 1
Public Const vbMultiple = 4
Public Enum Topic
Public UserName As String
Public NewUser As Boolean
Public Questions() As Question
Dim apppath As String
Dim Buffer As String
Dim SplitBuffer
Dim Quotation As Boolean
Dim SplitRandom
Dim RandomNo() As Double
Dim c As Integer
Dim SplitQuestion As String
Dim c As Integer
Dim d As Integer
Public Function ValidateExpression(Expression As String) As String
Dim Num1 As Double
Dim Num2 As Double
Dim sNum1 As String
Dim sNum2 As String
Dim BracketCount As Integer
Dim Instring As Integer
Dim c As Integer
Dim InString1 As Integer
Dim InString2 As Integer
Dim d As Integer
Dim d As Integer