Code:
Module Module1
Sub AddCourse(ByVal Team As String, ByRef ReturnString As String)
Dim Subjects() = {"Ms Office 2007", "internet and commmunications", "Lifetime skills"}
Dim CourseName As String = ""
Dim Result As String
Dim i As Short
Dim Title As String
Leave a comment: