Function ArrayValue(strColumnHeader, varHeaderArray, varDataArray) 'As String
'Looks for the position of strColumnHeader in varHeaderArray and
'returns the matching data from varDataArray. If strColumnHeader
'cannot be located in varHeaderArray, returns empty string.
Dim strArrayValue 'As String
Dim intCounter 'As Integer
	strArrayValue = ""
	For intCounter = Lbound(varHeaderArray) to Ubound(varHeaderArray)
		If Lcase(varHeaderArray(intCounter)) = Lcase(strColumnHeader) Then 
			strArrayValue = varDataArray(intCounter)
			Exit For
		End If
	Next
	ArrayValue = strArrayValue
End Function