Here's what I got so far.
Private Sub AssignmentForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strProgram As String, strDepartmentcode As String, strName As String
Dim strStatus As String, strfilename As String
strfilename = "Staffreport.txt"...