Public Function ValidateTextToNumeric(ctlToValidate As TextBox)'**********************************'This function tests the validation'for Numeric value of a given text'**********************************Dim strTextToValidate As StringDim blnNumericValid As BooleanstrTextToValidate = ctlToValidate.Text'*** Validation would be TRUE, in all the below cases ***blnNumericValid = CBool(strTextToValidate =