Private Function GetKeyByteArray(ByVal sPassword As String) As Byte()
		Dim byteTemp(7) As Byte
		sPassword = sPassword.PadRight(8) ' make sure we have 8 chars
		Dim iCharIndex As Integer
		For iCharIndex = 0 To 7
		byteTemp(iCharIndex) = Asc(Mid$(sPassword, iCharIndex + 1, 1))
		Next
		Return byteTemp
	End Function