' Listing 5. Code for the AddToLog Subroutine

Sub AddToLog(sItemID As String, sColumnName As String, _
	sStatus As String)

	Print #1, sItemID, sColumnName, sStatus

End Sub