Function Make3long (byval value as Integer, byval align as String) as String
	dim length as integer
	dim str as String
	dim make3long_i as Integer
	length = Len(Cstr(value))

	if align = "left" then
		str = Cstr(value)
		For make3long_i = 1 to (3 - length)
				str = str & " "
		Next make3long_i
	Else
		For make3long_i = 1 to (3 - length)
			str = str & " "
		Next make3long_i
		str = str & Cstr(value)
	end if

	Make3long = Left(str, 3)
End Function