In this post I am showing how you can make your webform more user friendly. Sub GenerateContainmentInspectionsHTML() Dim intRandomDB As Integer Dim intSeed As Integer Dim strDB As String ‘this is seed value for the RND function’s random number generator. Randomize ‘Int ((upperbound – lowerbound + 1) * Rnd + lowerbound) intRandomDB = Int((2500 – […]