If getCalibrePath() = "" Then Path = Environ("ProgramFiles(x86)") If Path = "" Then Path = Environ("ProgramFiles") End If setCalibrePath Path + "\Calibre" End If