1. Sub Main() 2. Dim testScore As Integer = 0 3. Dim category As String = " " 4. Dim interview As String = " " 5. 6. getScore(testScore) 7. employCat(testScore, category) 8. interviewPoss(testScore, interview) 9. displayInfo(testScore, category, interview) 10. 11. Console.WriteLine("Please hit enter to exit...") 12. Console.ReadLine() 13. 'Daniel Merritt (17486170) 14. End Sub 15. 16. Private Sub getScore(ByRef testScore As Integer) 17. Console.WriteLine("Enter the score: ") 18. testScore = Console.ReadLine() 19. End Sub 20. 21. Private Sub employCat(ByVal testScore As Integer, ByRef category As String) 22. If testScore <= 59 Then 23. category = "No" 24. ElseIf testScore <= 69 And testScore >= 60 Then 25. category = "Maybe" 26. ElseIf testScore <= 84 And testScore >= 70 Then 27. category = "Likely" 28. ElseIf testScore >= 85 Then 29. category = "Definite" 30. End If 31. End Sub 32. Private Sub interviewPoss(ByVal testScore As Integer, ByRef interview As String) 33. If testScore <= 59 Then 34. interview = "No" 35. ElseIf testScore <= 69 And testScore >= 60 Then 36. interview = "Yes" 37. ElseIf testScore <= 84 And testScore >= 70 Then 38. interview = "Yes" 39. ElseIf testScore >= 85 Then 40. interview = "Yes" 41. End If 42. End Sub 43. Private Sub displayInfo(ByVal testscore As Integer, ByRef category As String, ByRef interview As String) 44.