*****modBinaryQuestions.bas***** Dim RandomNo As Integer Dim c As Integer Dim sBinaryRandomno As String Dim iBinaryRandomno As String